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OVERVIEW 


This  manual  is  a  user's  guide  to  the  operation  of  the  program 
RAYTRACE  (Version  4.3)  and  also  covers  related  topics.  As  a  user's 
guide,  this  document  is  meant  to  assist  with  the  day  to  day  usage  of 
RAYTRACE.  The  greater  theoretical  detail  that  many  researchers  may 
wish  to  see  is  contained  in  a  paper  that  is  being  published  in  8adi: 
Science  Cl].  This  user's  guide  is  divided  into  two  sections  plus  the 
appendices.  The  first  section  is  introductory  in  nature  and  includes 
some  background  material,  a  'packing  list'  of  the  files,  and  instruc¬ 
tions  for  installation  and  setup.  The  second  section  is  devoted  to 
educating  the  user  ir  the  day  to  day  operation  of  RAYTRACE.  The 
appendices  incorporate  a  variety  of  useful  information. 


The  authors  of  the  program  RAYTRACE  are  Dr.  Michael  H.  Reilly  of 
the  Naval  Research  Laboratory,  and  Dr.  Eric  L.  Strobel  of  Interfero¬ 
metries  Inc.  Dr.  Reilly  may  be  reached  at  tr.e  following  address: 

Dr.  Michael  H.  Reilly 
Code  4180.2 

Naval  Research  Laboratory 
Washington  DC  20375 

Phone:  (202)  767-2891. 

Dr.  Strobel  may  be  reached  at: 

Dr.  Eric  L.  Strobel 
Interferometries  Inc. 

8150  Leesburg  Pike 
Vienna  VA  22180 

Phone:  (703)  790-3500. 


Summary  of  capabilities 

1  r  '  • 

The  program  RAYTRACE  has  a  number  of  distinctive  capabilities.  it 
performs  fully  three-dimensional  HF/VHF  raytracing  through  a  climato¬ 
logical  ionosphere.  - ,  (Magnetic  field  effects  are,  however,  not  cur¬ 
rently  implemented.)  "  Single  or  multiple  rays  may  be  traced  during  a 
single  run,  allowing  the  user  greater  flexibility  in  modeling.  The 
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size  of  the  increments  used  in  the  raypath  calculation  is  user  adjust¬ 
able  so  that  appropriate  compromises  may  be  made  between  execution  time 
and  accuracy.  The  program  can  trace  rays  between  points  at  different 
altitudes.  Cutoff  criteria  may  be  set  to  stop  the  calculation  at  a 
particular  range  or  altitude. 

RAYTRACS  calculates  a  number  of  important  quantities  aoout  the 
ray.  The  change  in  signal  intensity  due  to  distance  and  ionospheric 
focusing  or  defocusing  is  calculated.  The  group  and  pnase  path  ler.gcr. 
values  are  both  calculated.  The  location,  as  well  as  information  on 
the  direction  of  the  ray,  are  calculated  for  the  end  point  of  the  ray 
and  any  intervening  earth  impact  points  (collectively  these  are  called 
the  data  points  for  the  ray)  ( '  1 

V  '  . 

.  I 

Technical  background 

The  RAYTRACS  program  is  an  implementation  of  a  technique  that  is 
much  more  fully  discussed  in  a  paper  that  will  be  published  in  Radio 
Science  Cl].  A  brief  synopsis  of  that  paper’s  discussion  concerning 
program  details  is  presented  here.  This  section  may  be  skipped  with  no 
loss  of  continuity. 

The  RAYTRACE  algorithm  utilizes  a  set  of  raypath  differential 
equations  that  is  separable  under  some  approximation  assumptions. 
These  assumptions  involve  expanding  the  square  of  the  index  of  refrac¬ 
tion  in  a  Taylor  series  in  a  local  set  of  Cartesian  coordinates  and 
then  truncating  the  series.  If  the  coefficients  of  this  expansion  are 
known,  then  the  raypath  differential  equations  are  integrabie.  The 
coefficients  corresponding  to  the  terms  in  the  horizontal  direction  are 
obtained  by  spatial  interpolation  of  sets  of  the  coefficients  defined 
on  a  latitude  and  longitude  grid.  Those  in  the  vertical  direction  are 
obtained  by  using  the  functional  form  assumed  by  whatever  particular 
ionospheric  model  the  raytracing  program  has  been  customized  to  wcr< 
with. 

Given  the  truncation  of  the  Taylor  series,  the  equations  far  me 
raypath  are  only  valid  for  a  limited  distance  from  the  origin  or  me 
Taylor  expansion.  For  this  reason,  the  modeled  raypath  is  built  up 
incrementally.  The  raypath  equations,  then,  give  the  coordinates  or 
the  end  point  of  a  ray  increment  m  the  local  Cartesian  system. 
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The  program  utilizes  an  ionospheric  specification  on  a  latitude- 
longitude  grid  of  points.  The  ray  is  constructed  by  successively  cal¬ 
culating  the  coefficients  of  the  series,  evaluating  the  raypath 
equations,  and  updating  the  coordinates  and  other  needed  values  in 
preparation  for  the  next  increment.  The  process  continues  until  some 
cutoff  criterion  is  met. 

This  raytracing  algorithm  is  quite  compact,  as  it  utilizes  analy¬ 
tical  integration  of  the  raypath  differential  equations,  rather  than 
numerical  integration.  The  storage  requirements  are  smaller  than  if 
numerical  integration  was  used  because  a  particular  (perhaps  piecewise 
functional  form  for  the  vertical  structure  of  the  ionospnere  is 
assumed.  This  exacts  a  price,  however.  If  a  change  is  made  to  the 
underlying  ionospheric  model,  or  if  a  different  model  is  to  be  used, 
portions  of  the  RAYTRACE  code  need  to  be  changed.  The  current  imple¬ 
mentation  of  RAYTRACE  corresponds  to  that  detailed  in  the  paper  [1],  so 
the  model  to  which  it  is  currently  matched  is  the  RADAR-C  ionospheric 
model  [2]  .  The  vertical  profile  from  this  model  and  the  number  of 

parameters  necessary  to  specify  the  profile  determine  the  calculation 
of  the  expansion  coefficients  and  the  resulting  parameters  and  deriva¬ 
tives  . 


Operating  requirements 

The  current  implementation  of  RAYTRACE  is  written  in  Fortran 
Subject  to  very  minor  compiler  dependencies,  which  are  discussed  m 
later  sections,  the  program  will  run  on  most  computers  having  Fortran 
77  compilers.  The  total  amount  of  disk  storage  recommended  for  use 
with  RAYTRACE  is  about  one  megabyte.  Given  the  extra  space  needed  for 
the  compiler  and  system  files,  use  of  a  hard  disk  is  virtually  essen¬ 
tial  for  microcomputer  users  of  RAYTRACE.  If  necessary,  it  is  possible 
to  place  the  executable  version  of  the  program,  the  associated  files, 
and  a  data  file  on  a  floppy  disk.  A  minimum  of  512  FC  of  memory  is  re¬ 
commended.  with  640  X  or  greater  suggested.  The  presence  of  a  math  co¬ 
processor  is  essentially  a  requirement  for  microcomputer  users. 

An  additional  requirement  tnat  many  users  will  face  is  a  method  of 
generating  input  to  RAYTRACE.  This  will  entail  a  program  that  will 
produce  a  file,  with  a  format  given  in  Appendix  A.  from  either  an  lono- 
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spheric  model  or  experimental  data.  These  data  may  oe  entered  by  hand, 
but  this  method  of  data  input  to  RAYTRACE  is  only  practical  for  rela¬ 
tively  small  amounts  of  data. 


Design  philosophy 

The  RAYTRACE  program  has  been  developed  to  meet  specific  user 
needs,  however  the  development  process  has  been  geared  toward  maintain¬ 
ing  the  greatest  degree  of  generality  in  operation  consistent  with  the 
original  specific  needs.  For  this  reason,  the  program  is  user  driven 
to  the  greatest  extent  possible.  This  provides  some  capability  to  do 
calculations  in  a  "What  if  ...  ?”  manner  if  desired.  The  current 
version  of  the  program  represents  an  attempt  to  strike  a  balance 
between  modularity,  maintainability  of  the  code,  and  compactness  of 
both  memory  space  and  user  interface. 

Part  of  the  basic  outlook  taken  while  developing  RAYTRACE  is  that 
this  program  will  most  certainly  be  put  to  unanticipated  uses.  The 
program  is  therefore  set  up  to  be  as  straightforward  as  possible  at 
least  as  simulation  programs  like  this  go)  to  modify  for  such  uses. 
Some  ideas  on  customization  are  given  later.  Such  customizaticn  is 
bound  to  occur  as  RAYTRACE  becomes  more  widely  disseminated.  The  pro¬ 
gram  will  grow,  but  some  questions  will  inevitably  come  back  to  tr.e 
original  authors  of  RAYTRACE.  It  is  therefore  strongly  recommended 
that  any  variations,  changes,  or  additions  to  RAYTRACE  be  commented  as 
profusely  as  possible  in  the  source  code.  Additionally,  the  program's 
authors  (and,  in  fact,  the  research  community  at  large)  ought  to  ce 
kept  abreast  of  such  alterations  when  appropriate.  If  this  occurs,  it 
will  not  only  aid  RAYTRACE 's  authors  in  responding  to  questions,  but 
will  facilitate  the  evolutionary  improvement  of  the  program  as  a  pen- 
era!  research  tool. 
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Conventions  used 


It  is  assumed  that  the  user  is  familiar  with  the  operating  system 
for  the  machine  that  is  used.  Additionally,  the  user  ought  to  be  know- 
iedgeaole  about  the  operation  of  the  compiler  and  editor  to  be  used. 
Filenames  are  given  m  all  capital  letters  iFILE.EXT!,  with  a  three 
letter  extension.  The  total  length  of  filenames  is  not  to  exceed  ter. 
characters.  Prompts  are  generally  displayed  in  double  quotes  <" 
with  responses  given  in  single  quotes  ( '  1 » .  The  quotes  are  not  to  be 

typed . 

RAYTRACE  is  currently  implemented  on  a  DOS  system  and  a  VAX/VMS 
system,  with  subtle  differences  between  the  two  implementations.  This 
manual  is  written  so  that  those  with  DOS  systems  see  as  little  as 
possible  about  VMS  systems,  and  vice  versa.  Although  this  approach 
results  in  some  overall  repetition,  the  user  may  skip  over  sections  not 
dealing  with  his/her  system  without  fear  of  missing  key  material. 
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FILES 


What's  included 

The  RAYTRACE  package  is  best  transported  as  source  rode  which  may 
then  be  copied  onto  a  system  meeting  the  requirements  stated  above  for 
production  of  the  executable  version.  What  follows  are  Drief  descrip¬ 
tions  of  the  RAYTRACE  source  code  files  and  the  various  supporting 
files. 

The  source  for  the  RAYTRACE  program  itself  is  broken  into  six 
files.  The  file  RAYTRA4.F0R  is  essentially  the  user  interface  shell 
within  which  the  actual  raytracing  routines  are  imbedded.  The  handling 
of  access  of  data  files  is  also  within  this  set  of  routines. 
RRAYSB .  FOR  is  the  actual  meat  of  the  raytracing.  This  contains  the 
routine  which  implements  the  raytracing  algorithm.  The  ionospheric 
parameters  and  gradients  necessary  for  the  raytracing  are  calculated  by- 
routines  in  RIONO . FOR .  Routines  to  support  the  calculation  of  phase 
path  length  information  are  contained  in  RPHASE . FOR .  The  boundaries 
between  segments  of  the  vertical  profile  of  the  ionosphere  will,  in 
general,  be  tilted  with  respect  to  local  vertical.  The  routines  tc 
take  this  tilting  into  account  are  contained  in  RTILT . FOR .  Various 
other  supporting  routines  are  located  in  the  remaining  source  file. 
RMISC . FOR . 

When  RAYTRACE  is  run,  it  looks  to  a  few  text  files  which  contain 
information  on  the  make  up  of  the  menus  that  the  user  will  see.  These 
are  the  files  with  the  .MEN  suffix.  MASTER.  MEN.  as  the  name  would 
indicate,  is  the  master  file  that  RAYTRACE  looks  for  to  determine  what 
other  menu  files  will  be  needed.  MAIN. MEN  contains  the  information  on 
the  construction  of  the  main  menu  that  the  user  interacts  with  during  a 
raytracing  run.  LAUNCH. MEN  and  ELEV.MEN  determine  the  menus  by  which 
the  user  will  input  parameters  used  in  the  raytracing. 

One  more  file  is  included.  READER2.FOR  is  the  source  code  for  a 
brief  program  that  may  be  used  to  display  the  results  of  a  raytracing. 
Since  analysis  needs  will  vary  from  user  to  user,  this  program  is  meant 
to  provide  the  basis  for  more  sophisticated  programs  to  analyze  ray¬ 
tracing  results. 
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Table  1 


Table  of  files 


Filename 

Size  <b 

RAYTRA4 . FOR 

50243 

RIONO . FOR 

63071 

RMISC . FOR 

42064 

RPHASE . FOR 

18811 

RRAYSB . FOR 

27131 

RTILT . FOR 

29584 

ELEV . MEN 

237 

LAUNCH . MEN 

237 

MAIN. MEN 

163 

M*  «TER . MEN 

47 

READER2 . FOR 

3477 

Formats  available 

RAYTRACE  has  been,  to  date,  primarily  used  on  a  VAX  under  the  VMS 
operating  system,  and  on  an  AT-compatible  microcomputer  running  MS-DOS. 
The  program  can  be  furnished  in  formats  compatible  with  either  of  these 
two  environments.  It  may  also  be  possible  to  furnish  it  in  other 
formats  upon  request. 


PROGRAM  SETUP 


VMS  environment 


Setup 
made  more 
follows  is 
developing 
ories  will 


and  installation  of  RAYTRACE  in  the  VMS  environment  will  oe 
convenient  by  appropriate  planning  of  directories.  What 
one  possible  directory  setup  that  has  been  of  use  while 
the  program.  Individual  user  needs  and  pre-existing  direct- 
dictate  the  directory  structuring  for  each  site.  The  pn- 
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.•nary  pome  is  that  "he  user  of  RAYTRACE  will  make  usage  easier  by  plan¬ 
ning  ahead. 

The  directory  scheme  used  during  development  and  testing  of 
RAYTRACE  involved  the  use  of  three  parallel  directories.  A  working 
directory  was  set  up  containing  the  source  code.  Editing,  compiling, 
and  linking  are  performed  within  this  directory.  When  significant 
amounts  of  debugging  are  anticipated,  the  .MEN  files  and  a  trial  input 
file  are  moved  into  the  working  directory,  although  by  and  large  suen 
duplication  of  files  is  avoided  in  order  to  save  space. 

A  simulation  directory  is  maintained  for  day-to-day  usage  of 
RAYTRACE.  This  directory  holds  .DAT  (input)  and  the  .MEN  files,  as 
well  as  the  executable  version  of  RAYTRACE.  Numerous  input  files  may 
be  maintained  by  naming  them  in  a  mnemonic  fashion. 

The  simulation  directory  is  maintained  in  an  uncluttered  state  by 
having  a  results  directory  to  which  the  results  of  raytracings  may  be 
moved.  This  is  particularly  important  because  RAYTRACE  simply  uses 
generic  filenames  when  it  writes  out  results.  If  many  runs  are  to  be 
performed,  it  is  to  the  user's  advantage  to  rename  and  move  the  result 
files  in  order  to  keep  them  straight. 

An  additional  directory  that  may  be  of  help  to  some  users  is  a 
versions  directory.  This  may  be  a  subdirectory  of  the  working  direct¬ 
ory,  to  which  older  or  different  versions  of  the  code  are  moved. 
Again,  these  files  should  be  renamed  in  order  to  distinguish  them  at  a 
later  date.  An  advantage  of  such  a  subdirectory  is  keeping  the  wonting 
directory  uncluttered. 

The  source  code  may  now  be  copied  into  the  desired  directory.  :f 
the  source  is  uploaded  to  the  VMS  system  from  a  DOS  system,  some  things 
may  need  to  be  edited  before  RAYTRACE  will  successfully  compile.  Seme 
DOS-based  Fortran  compilers  need  markers  at  the  beginning  of  subrou¬ 
tines  so  that  subroutines  will  start  on  a  new  page  when  the  compiler  is 
asked  to  produce  a  listing  file.  These  markers  need  to  be  removed. 

Also,  different  compilers  have  different  means  of  suppressing  gen¬ 
eration  of  a  new  line  after  a  WRITE  statement  to  the  screen.  This 
means  that  three  lines  of  the  subroutine  KEYBRD  need  to  be  changed  from 
one  development  environment  to  the  next.  This  subroutine  is  located  m 
the  file  RAYTRA4.FOR.  Edit  this  file  and  go  to  the  subroutine  K EYBRD. 
There  is  a  comment  block  below  the  variable  declarations  whic.i  de¬ 
scribes  the  necessary  changes. 


RAYTRACE  is  now  ready  to  be  compiled  and  linked.  If  default  nam¬ 
ing  is  Co  be  uaed,  then  RAYTRA4  should  be  listed  first  in  the  link  com¬ 
mand.  The  executable  version  may  now  be  copied  to  the  rayracing  dir¬ 
ectory.  The  .OBJ  files  should  be  left  intact.  This  way,  when  changes 
are  made  to  one  source  file,  only  that  one  file  need  be  recompiled  and 
ail  the  object  files  may  be  linked.  If  disk  space  is  a  consideration, 
the  executable  may  certainly  be  deleted  from  the  working  directory. 

READER2 . FOR  should  also  be  compiled  and  linked.  The  executable 
may  be  copied  to  the  results  directory.  The  object  and  executable 
files  left  in  the  working  directory  may  be  deleted  to  conser-e  disk 
space . 

The  following  files  should  now  exist.  The  working  directory 
should  contain  a  complete  set  of  both  source  and  object  files  for 
RAYTRACE,  as  well  as  the  source  for  READER2 .  FOR .  The  executable  ver¬ 
sions  of  RAYTRACE  (default  name:  RAYTRA4.EXE)  and  READER2  should  be  in 
the  locations  chat  the  user  has  chosen  as  appropriate.  The  -MEN  files 
should  be  located  in  the  same  directory  as  the  RAYTRACE  executable. 

The  process  of  compiling,  linking,  and  moving  these  files  will  oe 
made  considerably  easier  by  making  use  of  the  capability  of  VMS  tc  use 
.COM  files.  This  is  especially  true  if  modifications  to  the  programs 
are  intended. 


DOS  environment 

Setup  and  installation  of  RAYTRACE  in  the  DOS  environment  will  oe 
made  more  convenient  by  appropriate  planning  of  directories.  What 
follows  is  one  possible  directory  setup  that  has  been  of  use  while 
developing  the  program.  Individual  user  needs  and  pre-existing  direct¬ 
ories  will  dictate  the  directory  structuring  for  each  site.  The  pri¬ 
mary  point  is  that  the  user  of  RAYTRACE  will  make  usage  easier  by  plan¬ 
ning  ahead. 

The  directory  scheme  used  during  development  and  testing  of 
RAYTRACE  involved  the  use  of  three  parallel  directories.  A  working 
directory  was  set  up  containing  the  source  code.  Editing,  compiling, 
and  linking  are  performed  within  this  directory.  When  significant 
amounts  of  debugging  are  anticipated,  the  .MEN  files  and  a  trial  input 
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file  are  moved  into  the  working  directory,  aithougn  by  and  large  sucn 
duplication  of  files  is  avoided  in  order  to  save  space. 

A  simulation  directory  is  maintained  for  day-to-day  usage  of 
RAYTRACE.  This  directory  holds  .DAT  (input)  and  the  .MEN  files,  as 
well  as  the  executable  version  of  RAYTRACE.  Numerous  input  files  may 
be  maintained  by  naming  them  in  some  mnemonic  fashion.  This  may  become 
crucial,  as  with  a  large  number  of  files  it  is  entirely  possible  to 
accidentally  destroy  another  file  by  attempting  to  have  two  files  of 
the  same  name. 

The  simulation  directory  is  maintained  in  an  uncluttered  state  by 
having  a  results  directory  to  which  the  results  of  raytracings  may  oe 
moved.  This  is  particularly  important  because  RAYTRACE  simply  uses 
generic  filenames  when  it  writes  out  results.  If  many  runs  are  to  be 
performed,  it  is  to  the  user's  advantage  to  rename  and  move  the  result 
files  in  order  to  keep  them  straight.  Again,  this  helps  avoid  the 
unpleasantness  of  unwanted  destruction  of  result  files. 

An  additional  directory  that  may  be  of  help  to  some  users  is  a 
versions  directory.  This  may  be  a  subdirectory  of  the  working  direct¬ 
ory,  to  which  older  or  different  versions  of  the  code  are  moved. 
Again,  these  files  should  be  renamed  in  order  to  distinguish  them  at  a 
later  date.  An  advantage  of  such  a  subdirectory  is  keeping  the  wording 
directory  uncluttered. 

The  source  code  may  now  be  copied  into  the  desired  directory.  If 
the  source  is  downloaded  to  the  DOS  system  from  a  VMS  system,  some 
things  may  need  to  be  edited  before  RAYTRACE  will  successfully  compile. 
Some  DOS-based  Fortran  compilers  need  markers  at  the  beginning  of 
subroutines  so  that  subroutines  will  start  on  a  new  page  when  the 
compiler  is  asked  to  produce  a  listing  file.  These  markers  need  to  be 
added . 

Also,  different  compilers  have  different  means  of  suppressing  gen¬ 
eration  of  a  new  line  after  a  WRITE  statement  to  the  screen.  This 
means  that  three  lines  of  the  subroutine  KEYBRD  need  to  be  changed  from 
one  development  environment  to  the  next.  This  subroutine  is  located  in 
the  file  RAYTRA4.F0R.  Edit  this  file  and  go  to  the  subroutine  KEY3RD. 
There  is  a  comment  block  below  the  variable  declarations  which  de¬ 
scribes  the  necessary  changes . 

RAYTRACE  is  now  ready  to  be  compiled  and  linked.  If  default  nam¬ 
ing  is  to  be  used,  then  RAYTRA4  should  be  listed  first  in  the  link  com- 
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nand.  The  executable  version  may  now  be  copied  to  the  raytracing  dir¬ 
ectory.  The  .OBJ  files  should  be  left  intact.  This  way,  when  changes 
are  made  to  one  source  file,  only  that  one  file  need  be  recompiled  and 
all  the  object  files  may  be  linked.  If  disk  space  is  a  consideration, 
the  executable  may  certainly  be  deleted  from  the  working  directory. 

READER2.F0R  should  also  be  compiled  and  linked.  The  executable 
may  be  copied  to  the  results  directory.  The  object  and  executable 
files  left  in  the  working  directory  may  be  deleted  to  conserve  disk 
space . 

The  following  files  should  now  exist.  The  working  directory 
should  contain  a  complete  set  of  both  source  and  object  files  for 
RAYTRACE,  as  well  as  the  source  for  READER2.F0R.  The  executable  ver¬ 
sions  of  RAYTRACE  (default  name  RAYTRA4.EXE)  and  READER 2  should  be  m 
the  locations  that  the  user  has  chosen  as  appropriate.  The  .MEN  files 
should  be  located  in  the  same  directory  as  the  RAYTRACE  executable. 

There  are  several  utilities  available  with  some  DOS-based  comp¬ 
ilers  that  ought  to  be  taken  advantage  of  if  available.  One  of  the 
drawbacks  of  most  DOS  Fortrans  is  the  colossal  size  to  which  the  exe¬ 
cutable  file  grows,  relative  to  the  size  of  the  source  or  object  files. 
A  necessary  utility  is  therefore  some  sort  of  program  that  compresses 
the  executable  to  the  size  that  it  ought  to  be. 

The  other  utility  is  a  'make'  utility.  This  automates  the  process 
of  building  that  executable  by  checking  the  files  that  go  into  constr¬ 
ucting  the  executable  to  see  which  ones  have  changed.  Compilation  only 
occurs  for  those  files  that  need  it.  If  much  alteration  of  RAYTRACE  is 
to  be  done,  a  'make'  utility  will  save  a  great  deal  of  time.  If  a 
'make'  utility  is  not  available,  then  creative  use  of  DOS  batch  files 
may  serve  as  a  substitute. 
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GENERAL  INSTRUCTIONS 


Overall  program  flow 

The  general  scheme  for  using  RAYTRACE  is  much  like  that  of  other 
simulation  programs.  Input  is  usually  from  a  data  file,  and  the  re¬ 
sults  are  stored  in  output  files.  During  the  course  of  execution,  the 
user  is  given  the  opportunity  to  change  a  number  of  parameters,  allow¬ 
ing  a  variety  of  situations  to  be  simulated  in  one  session.  These  set¬ 
tings  may  be  saved  for  later  use.  The  user  is  also  given  the  ability 
to  redo  entries  which  were  made  in  error. 

Figures  la  &  lb  summarize  the  overall  flow  of  RAYTRACE.  When  the 
program  is  started,  the  user  may  choose  between  doing  a  completely  new 
problem,  or  one  which  has  been  done  before  and  therefore  has  an  already 
existing  data  file  with  options  set.  If  an  old  problem  is  to  be  worked 
on,  all  of  the  problem's  option  settings  and  ionospheric  data  are 
loaded  in  and  the  user  is  deposited  directly  into  the  main  menu.  If  a 
new  problem  is  being  performed,  the  ionospneric  data  must  be  input. 
This  will  usually  be  by  means  of  a  grid  file.  A  grid  file  is  simply  a 
file  containing  the  pertinent  ionospheric  information  at  a  gridded  set 
of  latitudes  and  longitudes.  Grids  may  be  entered  from  the  console, 
but  this  is  only  practical  for  relatively  small  grids.  Again,  after 
the  ionospheric  data  is  entered,  the  user  is  placed  in  the  main  menu. 
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The  main  menu  of  the  program  is  a  central  point  to  which  execution 
will  return  unless  the  session  is  explicitly  ended.  There  are  two  menu 
items  which  lead  to  other  menus.  These  are  for  the  entry  of  parameter 
settings.  The  other  selections  are  to  execute  the  raytracing  using  the 
current  parameter  settings,  and  to  exit  from  the  program.  All  of  this 
will  be  discussed  in  greater  detail  below. 

During  execution,  RAYTRACE  must  deal  with  a  number  of  other  files. 
The  general  relationship  of  the  program  and  these  files  is  summarized 
in  Figure  2.  The  file  GRID .  DAT  is  a  grid  file,  as  described  briefly 
above.  It  contains  the  ionospheric  specification  for  a  given  situation 
and  is  used  as  input  on  fresh  problems.  This  file  must  be  generated  by 
some  outside  means,  although  if  the  specification  is  entered  into 
RAYTRACE  by  hand,  a  GRID . DAT  file  will  be  produced.  The  RAYDAT.DAT 
file  is  the  file  which  contains  the  settings  from  the  previous  ses¬ 
sions,  as  well  as  the  ionospheric  specification.  The  four  files  with 
the  .MEN  suffixes  determine  the  appearance  and  text  of  the  menus. 
Results  are  output  into  files  of  the  type  FOR###. DAT,  where  ###  starts 
at  040  (This  choice  is  an  artifact  of  earlier  versions.)  and  increments 
each  time  a  new  raytracing  is  done  within  a  given  session. 

FIGURE  2. 


Ionospheric  input 


One  of  the  primary  benefits  of  RAYTRACE  is  the  ability  to  do  real¬ 
istic  three-dimensional  raytracing  with  a  complicated  ionospheric  spec¬ 
ification.  This  capability  is  implemented  by  means  of  the  grid  file  is) 
described  briefly  above.  The  ionospheric  grid  file  may  be  produced  by 
a  numerical  model,  or  the  appropriate  parameters  may  be  obtained  from 
experimental  data  and  massaged  into  a  grid  file.  A  grid  file  may  also 
be  produced  by  direct  keyboard  entry  of  ionospheric  parameters  into 
RAYTRACE . 

The  grid  file,  however  it  is  produced,  is  composed  of  a  number  of 
data  arrays.  First,  the  definition  of  the  latitude  and  longitude  grid 
is  recorded.  Following  this,  the  six  ionospheric  parameters  required 
for  specification  of  the  vertical  profile  are  given  for  each  point  on 
the  grid.  Finally,  other  pertinent  data  are  recorded.  The  six 
parameters  are  the  maximum  plasma  frequencies  for  the  E,  FI,  and  F2 
layers,  the  heights  for  the  maximum  frequencies  for  the  FI  and  F2 
layers,  and  the  semithickness  of  the  F2  layer.  The  choice  of  these 
parameters  is  determined  by  the  profile  model  that  is  built  into  the 
current  version  of  RAYTRACE.  Currently,  RAYTRACE  uses  the  vertical 
ionospheric  profile  contained  in  the  RADAR-C  model  [2]  .  Because  the 
raytracing  is  so  intimately  mated  with  this  model,  any  input  data 
coming  from  experiment  or  some  other  model  must  be  converted  into  this 
form  or  RAYTRACE  must  be  modified  to  accommodate  the  new  model  profile. 
The  full  details  on  the  composition  of  a  grid  file  are  found  in  Appen¬ 
dix  A. 


Operating  instructions 

Before  beginning  operation  of  RAYTRACE,  be  sure  that  the  instruct¬ 
ions  in  the  setup  section  above  have  been  followed.  Also,  be  sure  that 
any  input  data  that  are  desired  exist  in  a  grid  file.  RAYTRACE  may  new 
be  executed  in  the  manner  appropriate  to  the  system  it  is  operating  on. 

When  RAYTRACE  is  first  run,  the  following  prompt  appears: 

"  Is  this  a  new  (1)  or  old  (0)  problem?  (  0):  ". 
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This  prompt:  is  typical  of  chose  used  in  RAYTRACE  and  so  ic  is  appropri¬ 
ate  to  discuss  it  here  in  some  detail.  First,  the  prompt  displays  some 
text  which  describes  the  information  sought.  Any  non-intuitive  form  of 
response,  such  as  the  0  or  1  above,  or  other  information  which  will  in 
some  way  limit  the  acceptable  response,  is  displayed  as  part  of  the 
prompt  text.  After  the  prompt  text,  the  current  (or  default;  va-ae  is 
displayed  in  parenthesis.  The  colon  marks  tne  end  of  the  prompt,  after 
which  the  user  types  his  response.  If  the  user  merely  types  a  return, 
then  the  default  value  is  used  as  the  response.  REAL-valued  responses 
may  be  typed  without  the  decimal  point  if  there  is  no  fractional  part 
to  the  response,  and  character  responses  are  case-insensitive. 

The  above  prompt  is  used  to  determine  whether  or  not  this  RAYTRACE 
run  is  for  an  entirely  new  data  set,  or  a  previously  used  data  set.  A 
new  problem  is  simply  one  for  which  no  RAYDAT-cype  file  exists,  or  for 
which  no  previously  existing  files  of  this  type  will  be  used.  This 
type  of  file  has  been  mentioned  briefly  already  and  will  be  discussed 
more  fully  below.  By  selecting  the  option  for  a  new  problem  the  user 
is  therefore  able  to  start  either  a  genuinely  new  problem,  or  use  an 
old  ionospheric  specification  with  all  new  options.  An  old  problem,  on 
the  other  hand,  is  one  for  which  the  ionospheric  specification  and  the 
options  have  been  stored  in  a  file  of  the  RAYDAT  type.  Please  note 
that  a  response  to  this  prompt  MUST  be  TYPED,  i.e.  the  default  cannot 
be  accepted.  This  is  an  attempt  to  ensure  that  the  operator  will  ma,<e 
the  correct  choice. 

The  next  prompt  that  comes  up  is  the  following: 

”  Enter  filename  for  storage  of  ionospheric 

information  (10  char  max):  (RAYDAT.DAT;: 

This  prompt  asks  for  the  name  of  the  file  which  will  contain  both  the 
ionospheric  specification  and  the  parameter  options  settings  used  in 
the  particular  problem.  If  the  problem  is  a  new  one  and  the  file  given 
already  exists,  a  Fortran  error  message  will  occur,  the  content  of 
which  will  depend  upon  the  compiler  used.  Aside  from  this,  tne  re¬ 
sponse  to  this  prompt  is  straightforward. 

The  program  will  now  proceed  to  the  main  menu  if  the  problem  n as 
been  declared  to  be  an  old  one.  However,  the  ionospheric  specif  1:3:1;:. 
still  needs  to  be  obtained  if  this  is  a  new  problem.  The  next  prompt 
asks  for  the  name  of  the  file  containing  this  ionospheric  information. 
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T.ie  ionospheric  grid  file  name  is? 
(type  NONE  if  none  exists) 


( GRID . DAT  J  : 


The  data  is  retrieved  from  the  grid  file  whose  name  is  given  and  the 
program  then  proceeds  to  the  main  menu.  If  'none'  is  typed  (remember, 
the  response  is  case-insensitive),  the  program  then  executes  a  section 
of  code  to  read  the  appropriate  information  from  tne  console. 

Console  entry  of  the  ionospheric  specification  involves  three  sets 
of  prompts.  The  first  set  of  prompts  asks  the  user  to  provide  the 
necessary  parameters  for  specifying  the  locations  of  the  grid  points. 
The  prompts  are: 

"Input  lat  grid  spacing  (deg):  (  .00000C000  ): 

Input  Ion  grid  spacing  (deg):  (  .000000000  ): 

Input  starting  latitude  and  longitude  in  degrees. 

LATITUDE  :  (  .000000000  )  : 

LONGITUDE  (east  »  positive):  (  .000000000  ): 

Input  #  of  grid  points  in  lat.:  (  .000000000  ): 

...  in  Ion.:  (  .000000000  ): 

Grid  setup  OK  (Y/N)  ?  (  Y) :  " . 

The  first  two  queries  set  the  latitude  and  longitude  spacing  between 
grid  locations.  The  next  two  fix  the  location  of  the  south-west  corner 
of  the  grid.  Longitudes  are  measured  from  Greenwich  with  positive 
values  eastward  and  negative  values  westward,  so  that  the  range  is 
between  -180  and  +130  degrees.  The  last  pair  of  queries  gives  the 
extent  of  the  grid  in  increments  of  the  grid  spacing  in  the  appropriate 
direction.  One  word  of  warning  is  appropriate  here.  Don't  forget 
about  counting  BOTH  end  points  when  entering  the  number  of  grid  points: 
Finally,  the  user  is  asked  if  the  values  entered  are  correct.  If  so, 
the  execution  of  the  program  goes  on.  If  not,  the  user  i3  returned  to 
the  beginning  of  this  set  of  questions  and  allowed  to  repeat  the  data 
entry.  The  current  settings  will  be  shown  as  the  default  values  which 
eases  the  correction  of  the  errant  entry. 

The  next  set  of  prompts  is  used  to  obtain  the  actual  vertical  pro¬ 
file  data  at  each  grid  location.  The  location  is  displayed  and  the 
user  is  prompted  to  enter  each  of  the  six  values  needed  to  specify  the 
vertical  profile  used  with  this  version  of  RAYTRACE,  as  follows: 


GRID  PT. 


Lac : 


44 . 444* 


Lon  : 


444 . 4444 


Input  foB**2  : 

Input  hmFl  : 

Input  foFl**2  : 

Input  YmF2  : 

Input  hmF2  : 

Input  foF2*"2  : 

Profile  inputs  CK  iY/N)? 


(  .000000000  ) 

(  .000000000  ) 

(  .000000000  ) 

(  .000000000  ) 

(  .000000000  ) 

(  .000000000 

(  Y)  :  "  . 


The  values  requested  are  the  plasma  frequencies  (squared)  for  the  three 
ionospheric  layers,  the  E,  FI.  and  F2,  at  the  layer  maximum.  These  are 
given  in  units  of  MHz-squared.  The  heights  of  the  maximum  plasma  fre¬ 
quency  for  the  FI  and  F2  layers  are  given  in  kilometers  as  is  the  value 
of  the  semithickness  of  the  F2  layer.  As  with  the  previous  set  of 
prompts,  if  the  user  acknowledges  that  the  inputs  are  OK,  the  program 
will  continue  on.  If  the  values  entered  are  not  correct,  the  user  is 
given  the  chance  to  reenter  them.  These  profile  entry  prompts  continue 
to  come  up  on  the  console  until  all  grid  locations  have  been  exhausted. 

The  final  of  the  three  sets  of  prompts  asks  for  the  time  of  the 
simulation  and  the  sunspot  number: 


”  Input  (integer)  sunspot  number:  (  0) : 

Input  year:  (  0) : 

. . .  month:  (  0)  : 

day:  (  0 ) : 

Input  UT  time  (hr)  :  v  0 )'  : 

...  UT  time  (min) :  (  0 ) : 

S.S.  #  and  times  OK  (Y/N)?  (  Y)  : 


The  sunspot  number  is  the  Zurich  sunspot  number.  The  year,  month,  and 
day  are  given  as  their  usual  integer  values.  The  time  is  Universal 
Time  and  is  integer  also.  After  this  prompt,  the  entry  of  the  iono¬ 
spheric  specification  is  complete  and  the  program  proceeds  to  the  -am 
menu. 

By  whatever  route,  the  program  will  now  have  reached  the  mam 
menu.  The  main  menu  serves  as  the  hub  of  the  program  as  far  as  me 
user  is  concerned.  All  major  actions  that  may  be  performed  are  done 
from  the  main  menu.  The  menu  contains  four  items: 


MAIN  MENU 


1  -  Edit  launch  parameters 

2  -  Edit  elevation/ azimuth  parameters 

2  -  Proceed  with  raytracing 

4  -  Quit  program 

Your  choice  (1-4  only,  please)?  (  0): 

Press  RETURN  to  continue.  (  ) :  " . 

This  exhibits  the  typical  structure  of  a  menu  in  RAYTRACE.  The  menu  is 
titled,  and  the  items  are  given  with  corresponding  numbers.  Selection 
is  made  by  entry  of  an  item's  number.  The  entry  is  checked  and  if  it 
is  out  of  bounds  for  that  menu,  the  user  is  prompted  for  the  choice 
again.  The  'Press  RETURN  to  continue.'  prompt  is  self-explanatory, 
except  for  the  opportunity  it  affords  the  user  to  abort  the  previous 
action.  If  the  user  types  'a'  (for  abort),  the  menu  choice  will  be 
aborted  and  the  menu  will  be  presented  again. 

The  first  two  items  of  the  main  menu  are  used  to  invoke  menus  for 
the  entry  of  parameter  values  for  the  particular  problem  being  done. 
These  values  are  divided  up  into  basically  general  values  in  the  first 
menu  and  elevation/azimuth  values  in  the  second.  The  third  and  fourth 
items  are  self-explanatory. 

Selection  of  item  1  of  the  main  menu  brings  the  Launch  Parameters 
menu  to  the  screen.  The  parameters  which  are  entered  by  means  of  this 
menu  are  of  a  general  sort.  They  include  the  starting  location  cf  the 
ray,  the  properties  of  the  ray,  and  the  conditions  for  cutting  off  the 
ray  calculation.  The  Launch  Parameters  menu  is: 
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LAUNCH  PARAMETERS  MENU 


1  -  Bounce  limit 

2  -  Signal  intensity 

3  -  Conductivity 

4  -  Launch  point 

5  -  Launch  height 

6  -  Range  &  height  limits 

7  -  Ray  path  increment 

8  -  Wave  frequency 

9  -  Done 

Your  choice  (1-9  only,  please)?  (  0): 

Press  RETURN  to  continue.  (  ) :  " . 

The  first  item  on  the  menu  is  the  bounce  limit.  Selection  of  this 
item  brings  up  the  following  prompt: 

"  Bounce  limit  (  1):  ". 

When  the  ray  propagation  represents  traditional  HF  communications  type 
raypaths,  i.e.  rays  which  are  reflected  from  the  bottom  side  of  the 
ionosphere  and  which  return  to  earth,  it  is  convenient  to  place  a  limit 
on  the  number  of  times  that  a  ray  can  return  to  earth.  This  may  be  a 
maximum  of  10  currently.  In  essence,  this  provides  for  a  kind  of  fuzzy 
range  cutoff  to  supplement  the  hard  range  cutoff  which  will  be  dis¬ 
cussed  later.  Pertinent  values  for  the  ray  are  output  to  a  file  at 
bounce  (earth  impact)  points,  and  at  the  end  of  the  ray.  This  item  is 
somewhat  meaningless  for  raypaths  which  are  not  restricted  to  the  space 
between  the  bottom  of  the  ionosphere  and  the  earth's  surface.  One 
artifact  of  this  is  the  blank  record  which  may  appear  at  the  end  of  the 
results  file  for  certain  raypaths.  This  blank  record  is  completely 
harmless  and,  to  use  current  terminology,  it's  not  a  bug,  it's  a 
feature . 

The  next  two  items  deal  with  the  signal  intensity  calculations 
that  will  be  done  along  the  ray.  The  prompt  for  item  2: 

"  Do  signal  intensity  (no  =  1)?  (  0 )  :  "  , 
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is  used  co  enter  a  flag  which  "urns  the  calculation  of  signal  intensity 
on  and  off.  Currently,  the  signal  intensity  computation  that  is  per¬ 
formed  is  the  geometric  spreading  of  a  ray  bundle,  including  focusing 
and  defocusing  effects,  and  reflection  loss  upon  earth  impact.  The 

third  prompt: 

"  Reflect  from  groundtl)  or  water (0)?  i  0):  ”, 

is  used  to  determine  the  conductivity  of  the  reflection  surface  used  in 
the  calculation  of  reflection  loss.  At  present  this  is  a  global 
choice . 

Menu  selections  4  and  5  determine  the  geographic  location  and 
altitude  of  the  starting  point  of  the  ray.  The  latitude  and  longitude 
are  entered  at  the  prompt: 

"  Enter  launch  pt.  latitude  (  .000000000  ): 
Enter  launch  pt.  longitude  (  .000000000  )  : "  . 

The  values  are  entered  in  degrees  with  the  longitude  ranging  from  -130 
to  -*-180  degrees,  positive  values  to  the  east  of  the  prime  meridian. 
The  starting  height  is  entered  at  the  prompt: 

"  Enter  starting  ht.  (km)  (  .000000000 

This  is  the  height  of  the  starting  point  above  the  surface  of  the 
earth,  defined  as  the  spherical  surface  having  a  radius  equal  to  the 
average  earth  radius. 

Item  six  provides  for  the  entry  of  cutoff  criteria  for  the  ray¬ 
tracing  problem: 

”  Enter  range  limit  (km)  (  3000.00000  »: 
Enter  altitude  limit  (km)  (  36000.0000  ): 

The  range  in  the  range  limit  prompt  is  great  circle  range  at  the 
earth's  surface.  It  should  be  thought  of  as  an  angular  range  along  the 
great  circle  direction  defined  by  the  original  azimuth  of  the  ray. 
since  this  is  how  it  is  handled  internally.  By  thinking  of  this  limit 
as  an  angular  one,  it  may  be  readily  generalized  to  problems  for  which 
both  end  points  of  the  ray  are  above  the  earth's  surface.  The  altitude 
limit  simply  sets  a  cutoff  altitude  above  the  surface  of  the  earth. 
The  default  value  of  36000  km  represents  the  altitude  of  geosynchronous 
satellites . 
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Selection  seven  of  the  Launch  Parameters  menu  allows  the  user  to 
set  the  size  of  the  steps  taken  along  the  ray  as  its  propagation  is 
modeled.  The  prompt  is  as  follows: 

"  Enter  raypath  increment  (km)  (  4.00000000  ):  "  . 

Settings  for  this  represent  a  compromise  between  accuracy  of  the 
results  and  speed  of  computation.  The  default  value  of  4  km  represents 
a  rough  optimum.  Practically,  values  much  smaller  than  0.1  km  cause 
the  computation  to  take  much  too  long  and  sufficiently  small  values  can 
begin  to  cause  a  decrease  in  accuracy  due  to  accumulation  of  roundoff 
errors  from  all  over  the  program.  Large  values  are  limited  by  the 
theory  underlying  RAYTRACE,  and  should  generally  be  less  than  10-15  km. 

The  eighth  menu  item  sets  the  frequency  of  the  electromagnetic 
wave  that  the  ray  represents.  The  prompt  is: 

"  Enter  wave  frequency  (MHz)  (  5.00000000  ):  ". 

Because  effects  due  to  the  earth's  magnetic  field  are  not  implemented 
in  the  current  version  of  RAYTRACE,  use  of  frequencies  much  below  about 
2  or  3  MHz  is  questionable.  At  the  high  end,  frequencies  beyond  a  few 
GHz  begin  to  cause  inaccuracies  because  of  repeated  operations  involv¬ 
ing  one  minus  a  small  number. 

Selection  of  item  nine  in  the  Launch  Parameters  menu  returns  the 
user  to  the  main  menu.  If  the  user  has  decided  to  alter  any  of  the 
parameters  set  in  the  Launch  Parameters  menu,  the  menu  may  simply  be 
reentered  at  this  point  and  the  values  changed.  Parameter  settings  for 
the  raytracing  may  be  changed  over  and  over,  the  ray  will  be  traced 
using  the  current  settings. 

The  second  item  in  the  main  menu  invokes  the  Elevation  Parameters 
menu.  This  menu  has  eight  items: 
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ELEVATION  PARAMETERS  MENU 


1  -  Dimension  of  problem 

2  -  Starting  azimuth 

3  -  Starting  elevation 

4  -  Elevation  resolution 

5  -  Azimuth  resolution 

6  -  Elevation  limit 

7  -  Azimuth  limit 

8  -  Done 

Your  choice  (1-8  only,  please)?  (  0): 

Press  RETURN  to  continue.  (  )  :  "  . 

This  menu  works  in  an  identical  fashion  to  the  Launch  Parameters  menu, 
but  with  one  twist.  It  will  become  clear  from  discussion  of  the  indi¬ 
vidual  menu  items  that  some  of  them  simply  do  not  apply  in  all  circum¬ 
stances.  In  cases  where  this  is  true,  those  items  which  don't  apply 
are  disabled.  Attempting  to  select  such  a  disabled  item  will  return 
the  user  to  the  menu. 

Selection  one  of  the  Elevation  Parameters  menu  allows  entry  of  a 
quantity  that  is  known  as  the  dimension  of  the  problem: 

"  Enter  dimension  of  problem  (  .000000000  >  : 

The  dimension  may  have  values  of  0,  1,  or  2.  The  dimensionality  is 

that  of  the  pattern  of  rays  to  be  sent  out  by  RAYTRACE .  A  single  ray 
may  be  sent  (dimension  0)  .  However,  multiple  rays  may  be  sent  in  a 
single  run.  A  vertical  fan  of  rays  may  be  specified,  which  is  to  say 
that  the  program  may  be  instructed  to  step  in  elevation  for  a  fixed 
azimuth.  This  is  dimension  1.  The  program  may  be  instructed  to  step 
both  in  elevation  and  azimuth.  This  is  dimension  2.  The  aimpoints  of 
the  ray(s),  if  pictured  on  an  elevation  versus  azimuth  plot,  then  form 
either  a  one  or  two  dimensional  array,  or  a  single  point. 

Continuing  with  this  visualization,  the  array  is  taken  to  start  m 
the  lower  left  corner,  that  is,  the  lowest  value  of  both  elevation  and 
azimuth.  For  a  single  ray,  the  array  of  values  is  simply  restricted  to 
just  this  single  point  and  the  dimension  one  problem  uses  the  leftmost 
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column  of  the  array.  All  cases  require  the  input  values  for  the 
starting  corner  of  the  array  of  elevation  and  azimuth  values.  Menu 
items  two  and  three  handle  this: 

"  Enter  starting  azimuth  (deg)  (  .000000000  ):  ", 

and , 

"  Enter  starting  elevation  (deg),  use  neg. 

for  values  >90  deg  from  zenith.  (  .000000000  ):  ". 

The  azimuth  is  given  in  the  conventional  manner.  As  the  prompt  for 
starting  elevation  states,  elevation  angles  below  horizontal  are 
allowed.  Acceptable  values  range  from  -90  degrees  to  +90  degrees,  per¬ 
mitting  rays  which  have  their  origin  at  altitude  to  be  sent  downward. 

The  next  menu  item,  item  4,  is  used  to  enter  the  elevation  spacing 
between  rays, 

"  Enter  elev.  resolution  (deg)  (  .000000000  ):  ". 

This  only  applies  when  a  multi-dimensional  array  of  rays  is  being  con¬ 
sidered,  and  so  may  only  be  selected  when  the  problem  dimension  has 
been  declared  to-  be  one  or  two.  The  elevation  values  are  stepped 
upward  (i.e.  toward  increasing  elevation)  by  this  value.  Related  to 
this  is  item  six,  where  the  limiting  value  for  the  elevation  is  given. 
This  prompt, 

"  Enter  elev.  limit  (deg)  (  .000000000  )  :  ", 

is  used  to  define  the  extent  of  the  pattern  of  rays  in  elevation.  As 
with  the  previous  prompt,  this  may  only  be  selected  when  the  problem  is 
declared  to  be  of  dimension  one  or  two. 

The  fifth  prompt  is  used  for  entry  of  the  azimuthal  spacing  in  the 
pattern  of  rays  to  be  sent  out.  The  prompt  is: 

"  Enter  azimuth  resolution  (deg)  (  .000000000  ): 

This  prompt  is  coupled  with  the  seventh  prompt, 

"  Enter  azimuthal  limit  (deg!  (  .000000000  )  : 

which  provides  the  program  with  the  information  on  the  azimuthal  extent 
of  the  ray  pattern.  These  selections  only  apply  for  the  case  when  the 
dimension  of  the  problem  is  two. 

Finally,  the  eighth  item  of  the  Elevation  Parameters  menu  will 
return  the  user  to  the  main  menu  when  selected.  As  with  the  Launch 
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Parameters  menu,  the  user  may  continue  to  cnange  the  values  entered  m 
the  Elevation  Parameters  menu  until  they  are  satisfactory.  These  are 
then  the  values  which  will  be  used  in  the  raytracing. 

The  main  menu's  third  selection  will  cause  the  actual  computation 
of  the  ray(s)  to  begin.  The  values  entered  in  the  Launch  Parameters 
and  the  Elevation  Parameters  data  entry  menus  are  the  values  that  will 
be  used.  At  this  point,  if  this  is  the  first  time  through  a  new 
problem,  the  parameters  and  ionospheric  data  are  written  out  to  the 
RAYDAT-type  file  and  the  ray  computation  begins  immediately.  The  first 
time  through  an  old  problem,  the  user  is  prompted: 

"  Overwrite  existing  file  (Y/N)?  ( 

about  overwriting  the  old  parameter  values  with  the  new  ones.  If  not. 
the  user  is  asked: 

"  Backup  the  datafile  (Y/N)?  ( 

whether  a  backup  copy  (another  RAYDAT-type  file)  of  the  settings  is 
desired.  After  answering  these  questions,  the  ray  calculation  begins. 
For  either  case,  after  the  initial  time  in  a  problem,  every  succeeding 
time  the  user  is  asked: 

"  Update  the  datafile  (Y/N)?  (  ):  ", 

whether  or  not  the  data  file  should  be  updated  with  the  latest  set¬ 
tings.  The  interface  is  set  up  to  give  the  user  ample  opportunity  to 
preserve  the  new  parameter  settings  if  desired,  but  the  user  has  the 
choice  of  not  saving  these  settings  if  that  is  what  is  desired. 

The  user  is  informed  of  the  start  and  finish  of  the  ray  calcula¬ 
tions  by  the  messages : 

"  BEGINNING  RAY  LOOPS. 

RAY  LOOPS  DONE .  " . 

Upon  completion  of  the  computations,  the  user  is  informed  of  the  file 

that  the  results  have  been  written  to  by  the  following  message: 

"  Results  written  to  file  FOR040.DAT  '* . 

The  numeric  part  of  the  filename  will  increment  each  time  the  user  dees 
another  raytracing  in  a  single  session.  Leaving  the  program  resets  the 
numeric  portion  of  the  filename. 


28 


Now  that  a  particular  raytracing  is  done  and  the  results  are 
stored  away,  the  user  is  prompted: 

■'  Do  another  problem  (Y/N)?  (  )  :  "  , 

whether  or  not  additional  raytracing  is  desired.  An  affirmative  answer 
will  return  the  user  to  the  main  menu  so  that  any  changes  to  parameters 
may  be  made  and  more  rays  may  be  traced.  A  negative  answer  has  the 
same  effect  as  choosing  item  four  from  the  main  menu.  First,  the 

prompt : 

"  Press  RETURN  to  continue.  (  )  : 

is  issued,  allowing  the  user  to  abort  the  exiting  of  the  problem  by 
entering  'a'.  If  a  return  is  entered,  then  the  program  exits  with  the 
following  final  message 

"  Session  done.  For  safety's  sake,  copy  the  data 
and  result  files  into  a  separate  directory  to 
prevent  accidental  overwriting. 

This  warning  should  be  heeded.  For  use  on  VAX/VMS  systems,  a  large 
number  of  virtually  indistinguishable  files  with  the  same  names  and 
different  version  numbers  may  result  in  loss  of  results  through  confu¬ 
sion  over  which  version  is  which.  DOS  based  systems  present  an  even 
greater  problem,  because  the  attempt  to  save  results  to  a  file  already 
in  existence  will  cause  the  old  file  to  be  destroyed. 


Output  Files 

RAYTRACB  produces  three  types  of  output  files.  The  first  is  a 
GRID.DAT  type  of  file,  if  the  ionospheric  specification  has  been 
entered  by  hand.  This  file  has  been  discussed  already.  The  second 
type  of  file  is  the  RAYDAT.DAT  type.  This  file  is  essentially  just  a 
GRID.DAT  file  with  the  additional  user-entered  parameters  appended  to 
it.  First,  the  definition  of  the  latitude  and  longitude  grid  is 
recorded.  Following  this,  the  six  ionospheric  parameters  required  for 
specification  of  the  vertical  profile  are  given  for  each  point  on  the 
grid.  Other  pertinent  data  are  recorded,  including  the  date  and  time 
of  the  ionospheric  specification,  and  the  sunspot  number.  These 
previous  data  are  just  those  recorded  in  the  GRID.DAT  file.  Additicn- 
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ally,  Che  values  from  the  Launch  Parameters  menu  are  recorded  and 
finally  che  values  from  the  Elevation  Parameters  menu  are  stored.  Full 
detail  of  the  RAYDAT.DAT  type  of  file  is  given  in  Appendix  A. 

The  remaining  type  of  data  file  is  the  results  file,  FOR###. DAT. 
This  file  contains  the  results  of  a  single  run  of  RAYTRACE.  First,  the 
bounce  limit  (plus  one  for  che  end  point  of  the  ray),  the  numoer  of 
azimuths,  and  the  number  of  elevations  are  recorded.  This  enables  any 
program  reading  the  results  to  break  the  results  out  into  these  for 
individual  rays.  For  each  ray,  the  azimuth  and  elevation  are  recorded. 
Then  the  various  results  are  saved  for  each  data  point  along  the  ray. 
These  data  points  are  earth  impact  points  and  the  end  point.  If  the 
ray  is  terminated  before  the  bounce  limit  is  reached,  blank  records 
will  occur  and  should  be  ignored.  Each  succeeding  ray  is  recorded  in  a 
similar  manner;  first,  azimuth  and  elevation,  and  then  the  results. 
The  details  of  this  particular  file  type  are  presented  in  Appendix  A. 

It  should  be  restated  chat  the  user  ought  to  be  careful  and 
develop  defensive  file  maintenance  procedures.  After  each  session 
files  should  at  the  least  be  given  more  suitable  names  that  are  perhaps 
indicative  of  their  contents.  This  will  not  only  reduce  the  likelihood 
of  accidental  destruction  of  results,  but  will  aid  in  later  analysis. 
Also,  the  user  should  be  aware  of  when  the  files  get  written  to  disk. 
The  RAYTRACE  produced  GRID.DAT  file  has  its  contents  written  during  the 
entry  of  the  data.  The  RAYDAT.DAT  file  is  written  just  before  the  rays 
are  traced,  and  the  FOR###. DAT  (results)  file  is  written  during  the 
raytracing. 
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TUTORIAL  EXAMPLES 


Although  the  operation  of  the  various  commands  of  RAYTRACE  has  now 
been  discussed,  this  knowledge  will  be  reinforced  by  going  step  by  step 
through  some  examples.  These  examples  will  be  presented  with  actual 
samples  of  screens,  for  clarity.  The  first  tutorial  involves  setting 
up  RAYTRACE  to  use  a  spherically  symmetric  ionosphere  with  the  specifi¬ 
cation  entered  by  the  console.  This  will  create  the  data  files  used  in 
the  subsequent  two  tutorials.  The  second  is  to  perform  a  new  problem 
using  a  grid  file  as  input.  The  last  is  to  perform  an  old  problem.  It 
is  hoped  that  the  user  will  actually  perform  these  tutorials  on  his/her 
system,  even  if  operation  of  the  program  seems  obvious  by  this  time. 
At  the  least,  the  exercise  will  increase  familiarity  with  the  operation 
of  the  program,  while  potential  problems  or  questions  may  be  preempted 
by  use  of  these  tutorials. 


New  session  using  keyboard  input 

To  begin  this  tutorial,  run  RAYTRACE.  This  will  be  a  new  problem, 
so  respond  with  '1'  to  the  first  prompt.  The  next  prompt  will  ask 
about  the  file  to  which  all  the  ionospheric  and  parameter  information 
will  be  written.  The  filename  that  has  been  chosen  for  this  tutorial 
is  TRIAL . DAT.  At  this  time  the  screen  should  look  like  the  following. 
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Screen  1 


Is  this  a  new  (1)  or  old  (0)  problem?  (  0):1 

Enter  filename  for  storage  of  ionospheric 

information  (10  char  max):  (RAYDAT . DAT) : trial .dat 


The  next  prompt  is  the  prompt  which  asks  about  the  file  from  which 
the  ionospheric  specification  will  be  read.  For  this  example,  there  is 
none,  so  the  appropriate  response  is  'none'.  The  screen  that  corre¬ 
sponds  to  this  is  Screen  2. 
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Screen  2 


The  ionospheric  grid  file  name  is? 

(type  NONE  if  none  exists)  (GRID.DAT  ) : none 


The  next  set  of  prompts  that  comes  up  is  a  set  of  prompts  asking 
about  the  definition  of  the  grid  on  which  the  ionosphere  is  co  be 
specified.  The  first  two  prompts  deal  with  the  latitude  and  longitude 
spacing  between  the  grid  points.  Since  this  example  is  a  spherically 
symmetric  case,  only  one  grid  point  will  be  needed  and  so  the  spacing 
is  immaterial.  For  this  reason,  a  response  of  '1'  is  chosen  in  each 
case.  The  next  two  prompts  ask  for  the  starting  latitude  and  longitude 
for  the  grid,  in  this  case  this  is  the  location  of  the  only  grid  point. 
The  responses  chosen  are  '45*  for  latitude  and  ’-90'  for  longitude. 
This  longitude  corresponds  to  a  west  longitude.  The  final  two  infor¬ 
mational  prompts  here  ask  about  the  size  of  the  grid  in  the  latitude 
and  longitude  directions.  Since  there  is  to  be  only  one  point,  the 
number  of  points  in  each  direction  will  be  '1'.  Finally,  there  is  a 
prompt  asking  whether  the  input  is  correct.  Assuming  everything  has 
been  entered  as  shown,  then  typing  return  will  accept  the  default 
choice  of  ’Y' .  At  this  point,  the  screen  should  look  like  Screen  3. 
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Screen  3 


Input  lat  grid  spacing  (deg) : 
Input  Ion  grid  spacing  (deg) : 
Input  starting  latitude  and  longi 

LATITUDE  : 
LONGITUDE  (east  »  positive): 

Input  #  of  grid  points  in  lat.: 

...  in  Ion . : 
Grid  setup  OK  (Y/N)  ? 


(  .000000000  ):1 

(  .000000000  )  :  1 

in  degrees. 

(  . 000000000  ) : 45 

(  .000000000  ) : -90 

(  .000000000  )  :  1 

(  .000000000  )  :  1 

(  Y)  : 


Now  the  program  begins  to  prompt  for  the  ionospheric  information 
for  the  location  specif icied  above.  The  location  of  the  point  is  given 
at  the  top  of  the  prompt.  The  parameters  prompted  for  occur  ordered  in 
terms  of  height.  It  should  be  noted  that  the  values  **ven  here  are 
merely  fictitious.  First  is  the  plasma  frequency  squared  for  the 
maximum  of  the  E-layer,  with  a  value  to  be  entered  as  '2'.  Next  the 
Fl-layer  is  specified,  by  the  height  of  the  maximum  of  the  FI,  '150' 
and  the  plasma  frequency  squared  of  the  FI  maximum,  ’7’.  Firally. 
three  F2-layer  parameters  are  prompted  for.  They  are  the  semithickness 
of  the  F2,  '65',  the  height  of  the  F2  maximum,  '300',  and  the  plasma 

frequency  squared  at  the  maximum  of  the  F2,  '20'.  Again,  the  program 

prompts  to  see  if  all  the  input  is  OK.  If  it  is,  the  response  should 
be  the  same  as  for  the  similar  prompt  above.  The  console  screen  shouli 

now  look  like  Screen  4. 
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Screen  4 


GRID  PT.  -  Lat:  45.0000  -  Lon:  -90.0000 


Input  foE**2  : 

( 

.000000000 

)  :  2 

Input  hmFl  : 

( 

.000000000 

)  :  150 

Input  foFl**2  : 

( 

. 000000000 

)  :  7 

Input  YmF2  : 

( 

. 000000000 

)  :  65 

Input  hmF2  : 

( 

.000000000 

)  :  300 

Input  f oF2* * 2  : 

( 

.000000000 

)  :  20 

Profile  inputs  OK  (Y/N)? 

( 

Y)  : 

The  final  set  of  prompts  for  the  environmental  specification 
involves  recording  the  date  and  time  of  the  problem,  and  the  sunspot 
number.  First  the  sunspot  number  is  entered,  in  this  example  '30'. 
Next,  in  descending  order  of  time  scale,  come  the  date  and  time 
prompts.  As  indicated  by  the  defaults  given,  these  are  expected  to  be 
integers.  This  example  uses  the  following  responses  in  order:  '1983'. 
'2',  '17',  '12',  and  '00'.  After  the  verification  prompt,  the  screen 
should  look  like  Screen  5. 
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Screen  5 


Input  (integer)  sunspot  number: 
Input  year: 

. . .  month : 

. . .  day: 

Input  UT  time  (hr)  : 

. . .  UT  time  (min) : 

S.S.  #  and  times  OK  (Y/N)? 


(  0) : 30 

(  0) : 1983 

(  0)  :2 

(  0  )  :  1 7 

(  0) : 12 
(  0) :00 


At  this  point,  the  program  brings  the  user  to  the  main  menu.  It 
is  from  this  menu  that  other  menus  are  invoked  for  entry  of  the  remain¬ 
ing  parameters,  and  that  the  actions  of  tracing  rays  and  quitting  are 
taken.  The  parameters  are  currently  a  blank  slate,  so  both  of  the  data 
entry  menus  need  to  be  selected  and  the  parameters  entered.  Starting 
at  the  top.  select  menu  '1'.  The  program  will  respond  with  another 
prompt.  As  it  says,  if  the  selection  is  the  desired  one,  the  user 
needs  only  type  a  return  to  proceed.  As  was  mentioned  earlier,  though, 
the  selection  may  be  aborted  by  responding  with  an  'a'.  If  this  is 
done,  the  user  will  be  returned  to  the  previous  menu.  Before  typing 
return,  the  screen  will  look  like  Screen  6. 
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Screen  6 


MAIN  MENU 


1  -  Edit  launch  parameters 

2  -  Edit  elevation/azimuth  parameters 

3  -  Proceed  with  raytracing 

4  -  Quit  program 

Your  choice  (1-4  only,  please)?  (  0 ) : 1 

Press  RETURN  to  continue.  (  )  : 


Selection  of  item  one  of  the  main  menu  brings  the  user  to  the 
Launch  Parameters  menu.  This  menu  is  used  for  the  entry  of  various 
parameters  relating  to  the  ray  calculation.  These  values  include  the 
location  of  the  starting  point  for  the  ray(s) ,  settings  which  are  used 
to  halt  the  calculation,  properties  of  the  ray(s),  and  values  which 
determine  whether  some  calculations  are  performed  and  if  so,  how.  This 
example  will  simply  make  the  selections  from  the  menu  in  numerical 
order,  therefore,  the  first  entry  will  be  '1'.  This  situation  is 
reflected  in  Screen  7. 
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Screen  7 


LAUNCH  PARAMETERS  MENU 


1  -  3ounce  limit 

2  -  Signal  intensity 

3  -  Conductivity 

4  -  Launch  point 

3  -  Launch  height 

6  -  Range  &  height  limits 

7  -  Ray  path  increment 

8  -  Wave  frequency 

9  -  Done 

Your  choice  (1-9  only,  please)?  (  0 )  :  1 

Press  RETURN  to  continue.  (  )  : 


This  selection  from  the  Launch  Parameters  menu  brings  up  a  query 
about  the  limit  to  be  placed  on  how  many  times  a  ray  may  return  to 
earth.  This  is  useful  when  dealing  with  low  frequencies  which  will  net 
penetrate  the  ionosphere.  The  problem  then  may  be  set  up  to  terminate 
after  a  certain  number  of  hops  has  occurred,  regardless  of  the  other 
termination  conditions.  For  the  purpose  of  this  example,  accepting  the 
default  value  of  '1'  will  be  sufficient,  so  the  response  will  be  to 
just  type  a  return.  The  screen  should  look  like  Screen  3.  Note  that 
in  some  of  the  screens  that  follow,  only  the  lower  portion  of  the 
screen  is  shown. 
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Screen  8 


Bounce  limit  (  1): 


Once  the  entry  of  the  data  is  made,  the  user  is  immediately 
returned  to  the  Launch  Parameters  menu.  This  time  the  selection  wi*l 
be  item  '2'.  Because  the  process  by  which  items  are  selected  from 
menus  is  uniform,  the  screen  need  not  be  repeated.  Menu  item  two  leads 
to  a  prompt  which  allows  the  program  to  know  whether  or  not  to  perform 
signal  intensity  calculations.  For  the  sake  of  speed  in  running  the 
example,  the  value  entered  is  '1'  which  corresponds  to  no.  The  screen 

example  is  given  as  Screen  9. 

Screen  9 


Do  signal  intensity  (no  a  1)?  (  0):1 


Returning  to  the  Launch  Parameters  menu,  the  next  selection  made 
will  be  '3'.  This  item  allows  the  user  to  designate  a  global  value  for 
the  conductivity  of  the  earth's  surface.  These  values  correspond  to 
soil  and  water.  They  are  average  values.  Conductivity  values  are  used 
when  signal  intensities  are  calculated  so  that  the  loss  due  to  reflec¬ 
tion  from  the  earth's  surface  may  be  accounted  for.  Since  no  signal 
intensity  will  be  calculated  for  this  example,  this  item  was  selected 
for  instructional  purposes  only.  Because  any  answer  will  suffice,  the 
default  may  be  accepted  by  typing  return.  This  is  shown  in  Screen  10. 
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Screen  10 


Reflect  from  ground (1)  or  water (0)?  (  0): 


The  next  selection  from  the  Launch  Parameters  menu  will  be  item 
number  '4'.  This  prompts  the  user  for  the  latitude  and  longitude  of 
the  launch  site  of  the  ray;  sj  .  The  values  are  given  in  degrees. 
Remember  that  longitudes  are  to  be  given  as  positive  to  the  east  of 
Greenwich,  with  the  prime  meridian  being  0  degrees  and  west  longitudes 
negative.  This  gives  a  possible  range  of  longitudes  of  -180  degrees  to 
+180  degrees.  The  launch  site  that  is  used  is  south  and  east  of  the 
ionospheric  point,  with  latitude  '40'  and  longitude  '-80'.  This 
results  in  Screen  11. 

Screen  11 


Enter  launch  pt.  latitude  (  .000000000  ):40 

Enter  launch  pt.  longitude  (  .000000000  >  : —  3 0 


Following  this,  item  '5'  should  be  selected  from  the  Launch 
Parameters  menu.  The  purpose  of  this  item  is  to  provide  the  third 
component  of  the  location  of  the  ray  launch  site,  namely  the  starting 
height.  The  starting  height  is  given  in  kilometers  above  the  earth's 
surface.  This  exercise  will  start  on  the  earth's  surface,  so 
response  that  is  needed  is  to  simply  type  return  so  that  the  default 
value  shown  is  accepted.  Before  hitting  return,  the  screen  will  lco< 
like  Screen  12. 


Screen  12 


Enter  starting  ht.  (km) 


.000000000 


Upon  return  to  the  menu,  select  item  '6'.  This  set  of  prompts  is 
used  by  the  program  to  obtain  from  the  user  values  which  will  determine 
when  the  problem  should  be  terminated.  The  first  parameter  is  the 
range  limit.  This  represents  great  circle  range  on  the  earth's 
surface.  Internally  this  is  dealt  with  as  an  angular  range,  but  it  is 
easier  to  think  in  terms  of  ground  range  when  entering  the  value.  This 
must  not  be  confused  with  the  distance  traveled  along  the  raypath!  The 
distance  along  the  ray  is,  in  general,  longer  than  the  associated 
ground  range.  The  value  selected  for  this  example  is  *2000'  km.  The 
second  value  to  be  entered  is  the  altitude  cutoff.  This  gives  the 
height  above  the  surface  of  the  earth  of  a  spherical  shell  which,  when 
pierced,  causes  the  raytracing  to  terminate.  For  this  example  a 
reasonable  value  is  '400'  km.  The  resulting  screen  is  Screen  13. 

Screen  13 


Enter  range  limit  (km)  (  3000.00000  ):2000 

Enter  altitude  limit  (km)  (  36000.0000  ):400 


The  next  quantity  to  be  entered  is  the  raypath  increment,  selec¬ 
tion  '7'.  This  value  determines  how  finely  the  raypath  is  broken  up 
for  the  purposes  of  the  calculation.  There  is  an  interplay  here  of  the 
desire  to  make  the  path  exceedingly  fine  for  the  sake  of  accuracy,  with 
the  desire  that  the  raytracing  complete  in  a  finite  (and  preferably 
small)  amount  of  time.  The  appropriate  range  of  values  has  already 
been  discussed.  It  is  sufficient  that  the  default  value  of  '4'  km 
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represents  somewhat  of  a  balance  and  so  this  is  the  value  chosen, 
prompt  is  displayed  in  Screen  14. 


The 


Screen  14 


Enter  raypath  increment  (km)  (  4.00000000  ): 


The  final  important  selection  from  the  Launch  Parameters  menu  is 
item  number  '8',  the  wave  frequency.  This  is  the  value  of  the  fre¬ 
quency  of  the  radio  wave  that  the  ray  represents.  The  appropriate 
range  of  values  for  this  is  discussed  above  in  the  operating  instruc¬ 
tions  section.  For  the  purposes  of  this  tutorial,  it  is  desired  that 
the  ray  not  penetrate  the  ionosphere,  so  a  wave  frequency  of  '4*  MHz  is 
selected.  The  default  of  five  MHz  is  merely  a  placeholder  so  that  the 
program  doesn't  accidently  start  with  frequency  equal  to  zero  and 
promptly  crash  due  to  division  by  zero.  The  screen  containing  this 
prompt  is  represented  by  Screen  15. 

Screen  15 


Enter  wave  frequency  (MHz) 


5 . 00000000  ) : 4 


After  completing  this,  all  the  necessary  data  has  been  entered 
the  Launch  Parameters  menu.  The  user  may  therefore  enter  '9'  the 

selection  indicating  that  the  data  entry  is  finished  in  this  menu.  The 
control  of  the  program  is  returned  to  the  main  menu.  From  the  mam 
menu,  the  other  data  entry  menu  may  now  be  entered.  This  is  dene  by 
making  selection  '2'  from  the  main  menu.  The  Elevation  Parameters  menu 
now  comes  on  screen. 

As  with  the  Launch  Parameters  menu,  this  tutorial  will  now  proceed 
through  the  items  in  the  Elevation  Parameters  menu.  The  first  item  in 
this  menu  deals  with  the  array  of  azimuth  and  elevation  values  for 
which  rays  will  be  sent  out.  Select  '1'  as  in  Screen  16. 
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Screen  16 


ELEVATION  PARAMETERS  MENU 

1  -  Dimension  of  problem 

2  -  Starting  azimuth 

3  -  Starting  elevation 

4  -  Elevation  resolution 

5  -  Azimuth  resolution 

6  -  Elevation  limit 

7  -  Azimuth  limit 

8  -  Done 

Your  choice  (1-8  only,  please)?  {  0 )  :  1 

Press  RETURN  to  continue.  (  )  : 


This  selection  will  provide  a  prompt  asking  as  to  the  dimension  of 
the  problem.  This  is  defined  earlier,  however  a  brief  rundown  is  in 
order.  The  term  dimension  refers  to  the  dimension  of  the  array  that 
could  be  used  to  represent  the  elevation  and  azimuth  values  to  be  used. 
For  this  reason,  dimension  0  represents  just  a  single  value  of  eleva¬ 
tion  and  azimuth.  Dimension  1  represents  a  single  azimuth  value  and 
multiple  elevation  values.  Finally,  dimension  2  corresponds  to  the 
case  where  there  are  multiple  elevations  and  azimuths  to  be  used.  2c 
that  all  the  menu  items  may  be  selected,  a  value  of  '2'  should  be 
entered  here.  This  is  represented  by  Screen  17. 

Screen  17 


Enter  dimension  of  problem 


.000000000  ) : 2 
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As  usual,  entering  the  response  above  returns  the  user  to  the 
menu.  Proceeding  down  the  menu  in  order,  the  next  selection  is  '2'. 
This  item  allows  the  entry  of  the  initial  azimuth  value  for  the  prob¬ 
lem.  The  azimuth  is  given  in  degrees  and  is  taken  relative  to  geo¬ 
graphic  north  in  the  usual  manner.  Because  this  example  involves  only 
a  spherically  symmetric  ionosphere,  one  direction  is  as  good  as  an¬ 
other.  The  default  value  of  'O'  is  therefore  taken,  by  typing  a 
return.  This  situation  is  depicted  in  Screen  18. 

Screen  18 


Enter  starting  azimuth  (deg)  (  .000000000  ): 


Item  three  of  the  Elevation  Parameters  menu  is  the  next  one 
selected.  This  prompts  for  the  starting  elevation  angle.  Elevation  is 
measured  in  degrees,  with  the  zenith  as  +90  degrees,  and  the  nadir  as 
-90  degrees.  Negative  values  of  elevation  angle  come  into  play  for 
cases  when  the  launch  point  of  the  ray  is  at  a  non-zero  altitude.  For 
this  example,  a  reasonable  value  to  use  is  '10'.  Screen  19  shows  this. 

Screen  19 


Enter  starting  elevation  (deg) ,  use  neg. 

for  values  >90  deg  from  zenith.  (  .000000000  >  :  10 


The  fourth  selection  from  the  Elevation  Parameters  menu  deals  with 
the  elevation  separation  between  rays.  Very  little  coaching  can  ce 
given  about  appropriate  values  for  this  parameter.  The  fineness  :r 
coarseness  of  the  elevation  resolution  must  be  determined  in  terms  of 
what  is  appropriate  for  a  given  problem.  Since  this  problem  is  of  an 
instructional  nature,  an  arbitrary  value  of  '0.5'  degrees  has  been 
chosen.  This  is  shown  in  Screen  20. 


Screen  20 


Enter  elav.  resolution  (deg) 


.  000000000  !  : 0 . 5 


Next  in  line  is  the  fifth  menu  item  of  the  Elevation  Parameters 
menu.  The  azimuth  spacing  between  rays  is  entered  at  the  resulting 
prompt.  This  is  handled  in  a  manner  identical  to  that  of  the  previous 
prompt.  The  value  which  is  to  be  entered  is  the  same  as  that  for 
elevation,  namely  '0.5'.  Screen  21  shows  this. 

Screen  21 


Enter  azimuth  resolution  (deg)  (  .000000000  ):0.5 


The  method  of  specification  for  the  elevation  and  azimuth  values 
depends  upon  having  the  starting  value,  the  division  size,  and  the 
ending  value.  The  ending  value  for  elevation  is  given  by  selection  of 
item  six  from  the  Elevation  Parameters  menu.  Internally,  the  differ¬ 
ence  between  the  start  value  and  the  limit  is  taken.  The  number  of 
increments  of  size  equal  to  the  resolution  value  that  will  fit  into 
this  interval  is  then  calculated.  This  is  the  number  of  elevation 
steps  that  will  be  taken.  For  the  sake  of  completing  the  example 
problem  quickly,  the  limit  will  be  taken  to  be  '10.5'  so  that  rays  will 
be  sent  out  at  only  two  elevations.  The  response  is  shown  in  Screen 
22. 
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Scrser 


1 


Enter  elev.  limit  (deg) 


. 000000000  )  :  10  .  = 


Lastly,  menu  item  seven  is  selected.  This  allows  the  azimuth 
limit  to  be  entered  in  a  manner  identical  to  the  elevation  limit. 
Again,  the  value  is  chosen  so  that  only  two  values  of  azimuth  will  be 
used.  The  combination  of  these  elevation  and  azimuth  limits  result  in 
just  four  rays  being  calculated.  The  appropriate  value  to  use  for  the 
azimuth  limit  is  then  '0.5'.  It  should  be  remembered  in  setting  the 
both  of  the  limits  that  if  a  specific  number  of  rays  is  desired  in 
elevation  and  in  azimuth,  that  the  end  points  must  be  counted  properly. 
The  prompt  and  response  are  shown  in  Screen  23. 

Screen  23 


Enter  azimuthal  limit  (deg) 


.000000000  )  :  0 . 5 


All  of  the  necessary  parameter  values  have  been  entered  now. 
Selection  of  item  '8'  of  the  Elevation  Parameters  menu  causes  a  return 
to  the  main  menu.  Everything  is  now  ready  for  the  raytracing  to  be 
performed.  Therefore,  item  '3'  is  now  selected  from  the  main  menu. 
Because  this  is  a  fresh  problem,  no  prompting  about  the  disposition  of 
the  entered  parameters  is  necessary.  These  values  are  automatically 
written  out  to  the  RAYDAT-type  file  that  was  specified  at  the  beginning 
of  this  exercise,  namely  TRIAL.DAT.  The  user  is  notified  that  the  ray¬ 
tracing  has  begun.  When  the  calculations  are  complete,  the  user  is 
notified  and  the  file  to  which  the  results  have  been  written  is  also 
noted.  The  user  is  then  given  the  opportunity  to  do  another  raytracing 
problem.  In  order  to  give  a  feel  for  what  the  program  will  do,  the 
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answer  to  this  prompt  is  'y'  for  yes.  The  screen  should  look  like  that 
shown  in  Screen  24. 


Screen  24 


BEGINNING  RAY  LOOPS. 
RAY  LOOPS  DONE. 


Results  written  to  file  FOR040.DAT 

Do  another  problem  (Y/N)?  (  ):y 


The  affirmative  response  causes  RAYTRACS  to  return  to  the  main 
menu.  For  the  second  problem,  just  a  single  ray  will  be  traced.  To  do 
this,  select  '2'  from  the  main  menu  in  order  to  proceed  to  the  Eleva¬ 
tion  Parameters  menu.  Once  at  the  Elevation  Parameters  menu,  choose 
'  1'  to  change  the  current  setting  for  the  dimension  of  the  problem. 
Recall  that  a  problem  of  dimension  zero  is  a  single  ray  problem.  The 
prompt  that  comes  on  the  screen  for  the  dimension  of  the  problem 
contains  the  current  value,  which  is  2.  Enter  a  value  of  'O'.  This  is 
shown  in  Screen  25. 


Screen  25 


Enter  dimension  of  problem 


2.00000000  ) : 0 


It  is  important  to  note  chat  no  other  values  in  the  Elevation 
Parameters  menu  need  be  changed.  In  fact,  it  will  be  very  instructive 
to  attempt  to  change  any  of  the  values  corresponding  to  menu  items  4-7. 
The  program  will  not  allow  these  items  to  be  changed,  instead  the  user 
is  returned  to  the  menu.  These  items  are  irrelevant  to  the  calculation 
once  the  dimension  has  been  set  to  zero.  3ecause  the  purpose  of  this 
second  portion  of  the  problem  is  simply  to  do  a  second  portion  to  the 
problem,  this  one  change  will  suffice.  Therefore,  select  '3'  to  return 
to  the  main  menu,  and  then  select  '3'  to  proceed  with  the  raytracing. 

This  time,  before  the  raytracing  is  started,  RAYTRACE  notes  the 
possibility  that  the  user  has  made  changes  to  parameter  values.  The 
user  is  asked  whether  or  not  to  update  the  data  file.  If  the  answer  is 
yes,  the  current  values  are  saved  out  to  the  RAYDAT-type  file.  If  the 
answer  is  no,  then  if  the  user  chooses  to  end  the  session  after  the 
current  raytracing,  the  changed  parameter  values  disappear.  For  the 
purposes  of  this  example,  it  doesn't  matter  whether  the  values  are 
saved  or  not:  the  response  of  'n'  has  been  chosen.  This  may  be  seen  in 
Screen  26. 

Screen  26 


Update  the  datafile  (Y/N)? 


)  :  n 


The  program  then  signals  that  the  tracing  of  the  ray  has  begun. 
When  the  end  of  the  calculation  is  reached,  the  display  is  similar  to 
that  seen  before.  This  time,  however,  it  is  desired  to  end  the 
problem.  The  response  to  the  prompt  is  therefore  'n'.  The  screen  will 
look  like  Screen  27. 
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Screen  27 


Update  che  datafile  (Y/N)?  {  )  :n 

BEGINNING  RAY  LOOPS. 

RAY  LOOPS  DONE. 

Results  written  to  file  FOR041.DAT 

Do  another  problem  (Y/N)?  (  )  :n 

Press  RETURN  to  continue.  (  ): 


The  final  thing  that  the  program  does  is  to  display  a  message. 
This  message  is  to  warn  the  user  to  take  proper  care  of  any  data  files 
that  have  been  produced  during  the  raytracing  session.  The  point 
cannot  be  overemphasized  that  the  filenames  given  are  far  from  de¬ 
scriptive  and  results  may  get  lost  or  destroyed  if  a  myriad  of  suer, 
files  exists.  The  closing  message  is  reproduced  m  Screen  23. 

Screen  28 


Session  done.  For  safety's  sake,  copy  the  data 
and  result  files  into  a  separate  directory  to 
prevent  accidental  overwriting. 


At  this  point,  RAYTRACE  has  finished  execution  and  control  has 
returned  to  whatever  system  is  being  used.  Several  new  files  should 
now  be  in  existence.  TRIAL.DAT  is  the  file  of  the  RAYDAT  type  that 
contains  the  saved  parameter  settings  and  the  ionospheric  specifica- 
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::on.  A  grid  file  called  SRID.DAT  was  created  by  entering  me  :or.c- 
spneric  data  from  the  console.  There  are  also  two  results  files, 
FOR040.DAT  and  FOR041.DAT.  As  the  final  message  warns,  these  files 
should  either  be  moved  or  renamed.  Examining  the  results  files  is 
discussed  in  a  later  section. 


New  session  using  data  file  input 

This  second  example  will  build  upon  the  foundation  of  the  first. 
The  grid  file  that  will  be  used  for  input  is  going  to  be  the  GRIT.  EAT 
that  was  produced  in  the  previous  example.  Reference  will  also  be  made 
to  the  first  example  for  those  portions  of  the  two  examples  which  are 
identical.  It  is  expected  that  many  RAYTRACE  runs  will  be  similar  to 
the  current  example  in  that  most  fresh  problems  will  be  initiated  by 
use  of  an  input  file  specifying  the  ionosphere. 

This  example  begins  by  starting  RAYTRACE  as  before.  The  initial 
prompt  comes  up  on  the  console.  Since  this  example  is  to  be  a  new 
problem,  respond  with  '1'.  The  prompt  asking  for  the  name  of  the  file 
to  store  the  ionospheric  specification  and  input  parameters  .new 
appears.  Recall  that  last  time  the  file  TRIAL .  DAT  was  used.  If  this 
file  hasn't  been  relocated  or  renamed,  entering  this  name  again  -ay 
cause  a  problem.  So  that  the  files  may  be  distinguished  the  name  t.nat 
is  chosen  for  this  example  is  'TRIAL2.DAT'.  After  this  response,  the 
screen  should  look  like  Screen  29. 

Screen  29 


Is  this  a  new  (1)  or  old  (0)  problem?  !  0  >  : 1 

Enter  filename  for  storage  of  ionospheric 

information  (10  char  max):  ( RAYDAT . DAT)  : trial!  .  da t 


The  next  prompt  is  the  one  asking  for  the  file  containing  t.-.e 
ionospheric  specification.  Unlike  the  first  example,  one  now  exists. 
The  file  even  has  the  name  GRID .  DAT .  This  is  the  file  to  be  used,  sc 
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the  default  value  of  the  prompt  may  be  accepted  by  typing  a  return. 
This  situation  is  depicted  in  Screen  30. 

Screen  30 


The  ionospheric  grid  file  name  is? 

(type  NONE  if  none  exists)  ( GRID . DAT  ): 


The  user  should  now  notice  a  difference  from  the  previous  example. 
Because  the  ionospheric  specification  already  exists,  the  program  has 
no  need  to  prompt  the  user  for  keyboard  entry  of  the  ionospheric  para¬ 
meters.  RAYTRACE  immediately  proceeds  to  the  main  menu.  From  here  the 
previous  example  may  be  picked  up  again.  Menu  item  '  1  ’  from  the  main 

menu  should  be  chosen. _ The  user  should  now  .enj:er_..valu.es._.f.nr..-..eac.b..-af  — 

the  items  in  the  Launch  Parameters  menu.  The  values  to  be  used  are 
just  those  of  the  previous  example.  That  example  and  its  discussion 
may  be  followed  and  will  not  be  repeated  here. 

Following  completion  of  the  Launch  Parameters  menu,  the  next  step 
is  to  proceed  to  the  Elevation  Parameters  menu  by  selecting  '2'  from 
the  main  menu.  Again,  the  items  of  this  menu  will  be  completed  m 
numerical  order.  Ju3t  as  in  the  first  example,  enter  as  the  menu 
choice.  For  the  sake  of  speed,  just  a  single  ray  is  desired.  There¬ 
fore,  the  response  to  the  resulting  prompt  will  be  to  accept  the 
default  value  by  typing  a  return.  This  is  shown  in  Screen  31. 

Screen  31 


Enter  dimension  of  problem 


.  000000000  )  : 


Next,  choose  item  '2'  from  the  Elevation  Parameters  menu.  The 
value  is  chosen  to  be  the  same  as  in  the  previous  example.  Recall  that 
this  means  the  azimuth  value  will  be  0  degrees.  The  default  response 

is  therefore  to  be  accepted.  Screen  32  show  this. 
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Screen  32 


Sneer  starting  azimuth  [deg) 


.  000000000 


The  starting  elevation  value  is  the  next  to  be  set.  Menu  item  '3' 
should  be  selected.  At  the  resulting  prompt,  a  value  of  '10'  degrees 
should  be  entered.  This  ought  to  lead  to  a  ray  with  identical  results 
as  one  of  those  done  in  the  first  example.  The  results  may  be  compared 
as  a  check.  The  elevation  data  entry  is  shown  in  Screen  33. 

Screen  33 


Enter  starting  elevation  (deg) ,  use  neg. 

for  values  >90  deg  from  zenith.  (  .000000000  ):10 


Because  the  dimension  of  the  problem  has  been  selected  to  be  zero, 
there  is  no  further  data  entry  needed.  Item  '8'  should  therefore  be 
selected  from  the  Elevation  Parameters  menu.  Upon  return  to  the  main 
menu,  the  user  may  choose  item  '3'  as  in  the  previous  example.  This 
will  initiate  the  raytracing  without  any  intervening  prompts.  Because 
this  is  a  fresh  problem,  the  data  is  automatically  recorded  in  the 
RAYDAT-type  file  specified  at  the  start.  When  the  raytracing  is 
complete,  the  program  behaves  in  a  manner  exactly  identical  to  that 
shown  in  the  first  example.  For  the  purpose  of  practice,  answer  the 
prompt  for  another  problem  with  'y'.  This  is  shown  in  Screen  34. 


Screen  34 


BEGINNING  RAY  LOOPS. 

RAY  LOOPS  DONE. 

Results  written  to  file  FOR040.DAT 

Do  another  problem  (Y/N) ?  (  )  :  y 


The  program  returns  to  the  main  menu  for  another  time  through  the 
problem.  So  that  the  problem  will  be  somewhat  different,  a  new  eleva¬ 
tion  value  will  be  used.  To  achieve  this,  select  '2'  from  the  main 
menu,  and  then  '3'  from  the  Elevation  Parameters  menu.  An  elevation 
angle  of  '8'  degrees  will  be  used.  This  will  result  in  a  screen  mat 
looks  like  Screen  35. 

Screen  35 


Enter  starting  elevation  (deg),  use  neg. 

for  values  >90  deg  from  zenith.  (  10.0000000  ):8 


This  is  the  only  change  that  is  necessary,  so  choose  '8'  from  m= 
Elevation  Parameters  menu.  When  control  has  returned  to  the  main  *er.o . 
selection  '3'  may  be  made  so  that  the  calculation  may  begin.  Again  is 
with  the  first  example,  the  query  about  updating  the  data  file  is  see-.. 
There  is  no  need  to  preserve  the  change  that  has  been  made,  so  answer 
with  'n'.  The  raytracing  then  proceeds  as  usual,  displaying  the  ncr-al 
information.  Because  this  example  is  essentially  complete,  respond 
with  'n'  to  the  prompt  asking  about  doing  another  problem.  This  is 
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3hown  in  Screen  36  below.  RAYTRACE  then  displays  its  final  message  and 
returns  to  the  system. 

Screen  36 


Update  the  datafile  (Y/N)?  (  ) :n 

BEGINNING  RAY  LOOPS. 

RAY  LOOPS  DONE. 


Results  written  to  file  FOR041.DAT 

Do  another  problem  (Y/N)?  (  ):n 

Press  RETURN  to  continue.  (  )  : 


Old  (saved)  session 

This  third  example  illustrates  the  use  of  a  RAYDAT-type  file  for 
input  at  the  beginning  of  the  problem.  As  with  the  second  example, 
this  example  will  be  built  upon  the  previous  ones,  and  only  those 
portions  which  are  new  for  this  example  will  get  detailed  attention. 
The  type  of  session  modeled  by  this  example  is  representative  of 
perhaps  the  majority  of  RAYTRACE  sessions.  By  reading  in  a  RAYDAT-type 
file,  all  of  the  parameters  have  some  pre-existing  setting.  Only  those 
parameters  that  are  different  for  the  particular  problem  at  hand  need 
be  examined  and  changed. 

First,  start  RAYTRACE  in  the  usual  manner.  This  time,  however,  at 
the  initial  prompt,  the  response  will  be  '0'  to  indicate  that  this  is 
an  old  problem  that  will  initially  use  the  parameter  values  stored  m  a 
RAYDAT-type  file.  The  second  prompt  is  the  same  as  has  been  seen 
before.  This  time  its  purpose  is  to  get  the  name  of  the  file  from 
which  the  parameters  will  be  read.  Any  parameter  changes  may  be  stored 
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in  this  file  also.  For  this  example,  the  file  created  by  the  first 
example,  'TRIAL.DAT',  will  be  used.  This  is  shown  in  Screen  37. 

Screen  37 


Is  this  a  new  (1)  or  old  (0)  problem?  (  0 ) : 0 

Enter  filename  for  storage  of  ionospheric 

information  (10  char  max):  ( RAYDAT . DAT) : trial . dat 

RAYTRACE  now  continues  directly  to  the  main  menu.  There  is  no 
need  to  read  from  a  grid  file  because  the  pertinent  data  are  stored  in 
the  RAYDAT-type  file  along  with  the  parameters.  At  this  point,  if  the 
parameters  desired  are  the  ones  that  were  saved  during  the  last  ses¬ 
sion,  the  user  could  just  select  the  third  item  from  the  main  menu  and 
proceed  directly  with  the  raytracing.  For  this  example,  however, 
recall  from  the  first  example  that  the  parameters  entered  included  a 
dimension  of  two  for  the  problem.  In  the  interests  of  speeding  the 

example  along,  this  should  be  changed  to  a  dimension  of  zero.  To  do 

this,  the  user  3hould  select  ’2'  from  the  main  menu  to  reach  the 
Elevation  Parameters  menu.  Then  ' 1*  should  be  selected  to  reach  the 
prompt  from  which  the  dimension  may  be  set.  Notice  that  the  default 

value  given  is  indeed  two.  Enter  the  new  value  of  'O'  as  shown  in 

Screen  38. 

Screen  38 


Enter  dimension  of  problem  (  2.00000000  ):0 


This  is  the  only  change  that  needs  to  be  made,  so  enter  a  choice 
of  '8'  to  return  to  the  main  menu.  Now  select  '3'  from  the  main  menu 
to  begin  the  raytracing.  The  program  now  presents  prompts  that  have 


not  been  seen  until  now.  Because  the  parameters  may  have  been  changed, 
even  though  this  is  the  first  time  through  the  problem,  the  user  needs 
to  be  presented  with  the  opportunity  to  preserve  these  changes.  First, 
the  user  is  asked  if  the  values  should  be  saved  in  the  current  file. 
If  they  are  not  to  be  saved  there,  the  user  is  chen  asked  if  a  new  data 
file  should  be  used  to  backup  the  new  values.  A  negative  answer  to 
both  of  these  prompts  will  mean  that  if  the  problem  is  ended  the 
altered  parameters  will  not  be  saved  anywhere.  It  is  not  necessary 
that  the  change  that  has  been  made  be  saved,  so  answer  'n'  to  both 
prompts . 

Some  additional  comments  about  these  prompts  are  in  order.  If  the 
old  parameters  are  overwritten,  then  the  data  are  safe  and  there  is  no 
need  for  the  second  prompt.  RAYTRACE  therefore  skips  it  and  goes  on 
with  the  calculation.  If  a  backup  is  desired,  the  user  will  be 
prompted  for  the  filename  to  be  used.  Also,  on  succeeding  times 
through  the  raytracing  the  prompt  asking  about  updating  the  data  file 
(as  in  Screen  36  above)  will  be  referring  to  the  last  file  that  was 
written  to. 

After  dealing  with  the  above  mentioned  prompts,  the  raytracing  is 
performed.  The  rest  of  the  prompts  are  just  as  they  have  been  before. 
There  is  really  nothing  further  to  be  discovered,  so  'n'  may  be  entered 
in  response  to  the  query  about  another  problem,  as  shown  in  Screen  39. 
After  this  the  program  ends  in  the  usual  fashion,  returning  to  the 
system.  This  concludes  the  final  example. 
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Screen  39 


Overwrite  existing  file  (Y/N) ?  (  )  :n 

Backup  the  datafile  (Y/N)?  (  )  :n 

BEGINNING  RAY  LOOPS. 

RAY  LOOPS  DONE. 


Results  written  to  file  FOR040.DAT 

Do  another  problem  (Y/N)?  (  )  :n 

Press  RETURN  to  continue.  (  ): 


Remarks 

The  three  examples  given  serve  to  illustrate  essentially  every 
feature  of  RAYTRACE.  After  following  all  three  examples,  the  user 
should  be  familiar  enough  with  the  interface  of  the  program  to  go  ahead 
and  "play  around"  by  trying  different  things.  Such  "play”  may  be  worth 
the  time  if  the  user  feels  the  need  for  additional  familiarity  with  the 
operation  of  the  program.  The  menu  reference  sheet  given  later  should 
also  be  of  some  help. 


EXAMINING  RESULTS 

So  far,  the  discussion  ha.?  dealt  with  the  use  of  the  RAYTRACE 
program.  The  program  is  of  very  little  use,  though,  unless  there  is 
some  way  of  getting  at  the  results  from  the  raytracing  runs.  This 
section  deals  with  the  program  READER2  that  is  provided  with  RAYTRACE. 
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READER2  represents  a  zeroth-order  program  for  examining  the  results  of 
RAYTRACE.  While  this  program  has  proven  adequate  in  the  testing  and 
development  of  RAYTRACE,  it  is  certain  that  the  end  users  of  RAYTRACE 
will  need  to  write  their  own,  more  sophisticated  analysis  software. 

READER2  is  very  straightforward  to  use.  When  the  user  executes 
it,  the  program  prompts  for  the  name  of  the  results  file  that  it  is  to 
he  read.  Upon  receiving  the  name,  REA0ER2  immediately  displays  the 
important  values  from  the  result  file.  This  display  is  done  for  each 
pair  of  elevation  and  azimuth  values.  Results  for  each  data  point  on 
the  ray  are  displayed  with  the  values  for  a  particular  point  taking  one 
screen.  Recall  that  data  points  on  the  ray  are  earth  impact  points  and 
the  end  point  of  the  ray.  After  display  of  each  data  point,  READER2 
pauses  and  awaits  the  user’s  response  before  continuing.  When  all  the 
data  are  exhausted,  the  program  simply  ends  and  returns  to  the  system. 

The  values  displayed  on  the  screen  are  by  and  large  self-explana- 
tory.  The  elevation  and  azimuth  values  are  given  in  degrees.  The 
direction  cosines  give  the  orientation  and  direction  of  the  ray  at  that 
particular  point  in  an  SE2  coordinate  system  where  X  is  South,  Y  is 
East,  and  2  is  up.  The  deviation  value  represents  the  deviation  away 
from  where  the  ray  would  have  landed  had  it  stayed  on  a  great  circle 
path.  This  is  a  measure  of  the  cross-path  tilt  of  the  ionosphere. 

Several  comments  on  the  regular  usage  of  READER2  are  in  order 
here.  Although  the  display  of  the  results  on  screen  is  useful,  it  is 
often  more  useful  to  have  a  hardcopy  of  these  results.  This  is 
achieved  not  by  READER2,  but  by  the  system  that  it  is  operating  on  and 
the  console  used.  Many  systems  and  consoles  have  the  capability  to 
eithet  redirect  output  to  a  disk  file,  or  perform  screen  dumps  to  a 
printer.  Given  the  rather  widespread  presence  of  such  a  capability,  no 
provision  has  been  made  to  produce  a  printable  file.  Since  the  user  is 
likely  to  develop  individualized  analysis  software  anyway,  there  is 
really  no  need  for  this  capability. 

Another  comment  concerns  the  blank  record  that  will  occasionally 
be  displayed.  This  is  entirely  harmless.  It  occurs  because  provision 
must  be  made  for  the  possibility  that  the  limit  on  the  number  of 
bounces  may  be  reached  and  there  still  needs  to  be  the  additional  space 
for  the  end  of  ray  point's  data.  If  the  bounce  limit  isn't  reached, 
then  this  extra  space  is  blank. 
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TIPS,  RESTRICTIONS,  REMINDERS,  ETC. 


This  section  has  the  purpose  of  gathering  together  some  of  the 
comments  that  have  either  gone  unsaid  to  this  point,  or  bear  repeating. 
First,  there  are  some  comments  of  a  general  nature.  Comments  specific 
to  a  particular  implementation  or  environment  follow.  Finally,  some 
usage  hints  are  presented. 

General  comments 

The  speed  with  which  RAYTRACE  operates  will  be  of  some  concern  to 
many  users.  Some  benchmarks  have  been  run  on  various  machines.  The 
two  primary  implementations  discussed  in  this  User's  Guide  are  the 
VAX/VMS  and  the  DOS  versions.  The  machines  compared  were  an  IBM  AT- 
compatible  (with  math  coprocessor)  and  a  VAX  11/785.  The  benchmarked 
run  uses  the  TRIAL . DAT  file  from  the  four  ray  example  of  the  tutorial 
examples  above.  The  run  was  repeatedly  made  and  the  results  averaged. 
Timing  was  done  by  stopwatch  from  typing  return  at  the  last  prompt 
before  the  execution  of  the  ray  loops  until  the  message  of  "RAY  LOOPS 
DONE"  appeared  on  the  screen.  For  the  VAX,  in  addition  to  the  apparent 
execution  time  as  measured  by  stopwatch,  the  CPU  time  was  taken  by 
using  the  <CTRL>-T  mechanism  of  VMS  for  obtaining  the  process  time 
statistics.  Because  the  VAX  is  a  multiuser  machine,  the  usage  level  is 
of  some  significance.  The  benchmark  was  run  early  in  the  morning 
before  the  many  users  were  on  the  system.  At  the  time  of  the  runs, 
there  were  only  four  users,  so  that  the  machine  could  be  termed  lightly 
loaded. 

The  results  of  the  benchmark  are  as  follows: 

Table  2 


Machine 

Time 

AT-clone  : 

40.7 

sec 

VAX  11/785  : 

9.2 

sec 

( user ' s  time 

VAX  11/785  : 

5.1 

sec 

(CPU  time) 
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Due  co  the  usage  level  on  che  VAX  when  the  benchmark  was  run,  it  is 
fairly  clear  that  the  user  time  could  have  been  somewhat  better,  but  it 
also  could  have  been  much  worse.  Extrapolating  from  other  experience, 
the  execution  time  for  this  benchmark  on  any  of  che  current  (1987-33) 
crop  of  32-bit  microcomputers  would  lie  somewhere  midway  between  the 
VAX's  user  time  and  CPU  time. 


Several  restrictions  of  RAYTRACE  should  be  noted.  Filenames  are 
to  be  ten  characters  or  less  in  length.  The  input  files  need  to  be 
located  in  the  same  directory  as  the  executable  for  RAYTRACE.  at  least 
the  way  RAYTRACE  is  currently  written.  Another  restriction  is  on  the 
size  of  the  input  data.  Currently,  the  grid  of  points  cannot  be  larger 
than  30  in  latitude  by  60  in  longitude.  This  trims  the  size  of  the 
memory  allocated  to  a  level  tolerable  to  the  DOS  specifications  stated 
previously.  A  third  restriction  is  that  rays  may  not  be  fired  with  an 
elevation  angle  of  90  degrees.  This  restriction  only  applies  if  the 
ray  will  make  a  reflection  from  the  ionosphere.  Rays  which  penetrate 
the  ionosphere  may  have  elevations  of  +  /-  90  degrees. 


It  is  important  to  make  sure  when  doing  a  new  problem  that  ALL,  of 
the  menu  items  have  been  selected  and  checked  to  verify  that  their 
values  are  properly  set.  Failure  to  do  so  is  perhaps  one  of  the  most 
frustrating  of  mistakes  that  can  be  made  while  using  RAYTRACE,  as  the 
program  is  perfectly  willing  to  use  whatever  the  current  values  are 
even  though  they  may  not  be  what  the  user  intends.  As  a  further 
reminder,  the  following  table  lists  some  parameters  and  their  range  of 
values . 


Table  3 


Parameter 

Latitude 

Longitude 

Plasma  frequency  squared 
Heights  and  distances 
Elevation  angles 

Azimuth  angles 


Range 

+90  to  -90  deg 
with  (+)  north 
-180  to  +180  deg 
with  (-)  for  west 
longitudes 
Megahertz  squared 
Kilometers 
+90  (zenith!  to  -90 
(nadir)  degrees 
0  to  360  degrees  with 
0  north  and  values 
increasing  eastward 
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Some  of  the  parameters  that  the  user  enters  have  either  imposed  or 
practical  bounds.  The  wave  frequency  of  the  RF  transmission  that  the 
ray  represents  is  bounded  on  the  lower  side  to  a  few  MHz.  This  is 
because  for  lower  frequencies  magnetic  field  effects,  wnich  are  not 
included  in  the  current  version  of  RAYTRACE,  play  an  increasing  role. 
As  an  upper  bound,  frequencies  beyond  a  few  GHz  begin  to  lose  relia¬ 
bility  for  two  reasons.  First,  as  a  calculations!  matter,  the  ratio  of 
the  plasma  frequency  squared  to  the  wave  frequency  squared  becomes  very 
small.  Operations  occur  of  the  type  il  -  x)  where  x  is  a  small  number, 
with  the  resulting  loss  of  accuracy.  Second,  refraction  due  to  the 
neutral  atmosphere  becomes  a  much  more  important  factor  at  these  fre¬ 
quencies.  These  limits  are  then  limits  on  the  believability  of  the 
results.  RAYTRACE  will  calculate  over  a  much  larger  range  of  frequen¬ 
cies,  but  the  results  will  be  far  from  reliable. 

The  size  of  the  raypath  increment  is  another  quantity  that  has 
practical  limits.  There  is  a  lower  limit  due  to  accumulation  of  error 
and  the  duration  of  the  calculation.  For  raypath  increments  smaller 
than  a  few  tenths  of  kilometers,  even  modest  calculations  begin  to  take 
intolerable  lengths  of  time.  This  conclusion  i3  of  course  subjective 
and  depends  upon  the  computer  being  used  at  the  time.  The  problem  of 
duration  of  the  calculation  has,  nowever,  prevented  rigorous  testing 
for  the  degradation  of  the  results  due  to  accumulation  of  errors.  An 
upper  limit  also  exists  on  the  size  of  the  raypath  increment.  Incre¬ 
ments  which  are  too  large  begin  to  violate  an  approximation  made  in  the 
theory  underlying  the  raytracing  algorithm.  Typically,  increment  sizes 
of  10-15  km  are  about  the  maximum  practical.  As  with  the  limits  on  the 
wave  frequency,  values  outside  these  may  be  used,  but  the  results  must 
be  viewed  as  ranging  in  quality  from  rough  approximations  to  completely 
unreliable . 

The  cutoff  height  is  a  quantity  that  bears  further  discussion. 
The  default  value  initially  given  is  essentially  the  height  of  geo¬ 
synchronous  orbit.  This  value  represents  a  compromise.  The  ionospnere 
is  considered  to  end  at  a  height  of  2000  km  in  the  model  used.  Propa¬ 
gation  to  altitudes  beyond  this  is  modeled  as  straight  line  propagation 
through  free  space.  While  this  is  certainly  not  rigorously  correct,  it 
is  by  and  large  an  accurate  assumption.  Clearly  some  cutoff  must  oe 
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used  so  chat  the  program  doesn't  calculate  off  to  infinity.  Since  most 
radio  operations  currently  take  place  within  a  sphere  defined  by  the 
radius  of  geosynchronous  orbit  the  default  value  seems  convenient.  The 
value  may  be  reset  to  any  value  the  user  desires.  Be  warned,  however, 
that  the  neglected  refraction  will  eventually  add  up  as  the  path  length 
increases.  Depending  upon  the  application,  this  error  could  have  a 
substantial  effect. 


VMS  specific  comments 

The  points  that  are  mentioned  here  have  been  discussed  in  greater 
detail  elsewhere  and  are  referred  to  here  as  a  reminder.  When  trans¬ 
porting  the  source  code  between  a  DOS-based  and  a  VAX/VMS  system,  there 
are  a  few  lines  that  may  need  to  be  changed.  These  changes  are  dis¬ 
cussed  in  detail  in  the  Setup  section.  The  naming  and  renaming  of 
files  needs  to  be  carefully  considered.  The  number  of  results  files 
having  similar  names  but  different  version  numbers  can  become  bewilder¬ 
ing.  Also,  the  user  should  automate  as  much  of  the  raytracing  process 
as  possible  through  the  use  of  command  files. 

When  using  VMS  command  files  to  perform  batch  RAYTRACE  300s.  one 
drawback  becomes  obvious,  there  is  no  provision  in  such  command  files 
for  a  response  that  involves  just  typing  a  return.  Every  line  of  the 
command  file  must  contain  something.  For  this  reason,  any  prompt  of 
the  'Press  RETURN  to  continue.'  type  will  accept  and  return  as  if 
it  were  just  a  plain  return.  Therefore,  on  any  line  of  a  command  file 
where  the  desired  response  is  just  a  return,  a  line  with  a  single 
period  on  it  will  serve  as  the  necessary  substitute. 


DOS  specific  comments 

The  points  that  are  mentioned  here  have  been  discussed  in  greater 
detail  elsewhere  and  are  referred  to  here  as  a  reminder.  When  trans¬ 
porting  the  source  code  between  a  VAX/VMS  system  and  a  DOS-based 
system,  there  are  a  few  lines  that  may  need  to  be  changed.  These 
changes  are  discussed  in  detail  in  the  Setup  section.  The  naming  and 
renaming  of  files  needs  to  be  carefully  considered.  Because  DCS 
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provides  little  protection  against  accidental  destruction  of  files,  the 
user  must  exercise  extreme  care  to  preserve  files  against  disaster. 
Also,  the  user  should  automate  as  much  of  the  raytracing  process  as 
possible  through  the  use  of  batch  files. 


Uses  and  Usage  tips 

RAYTRACE  is  a  tool  that  may  be  used  to  accomplish  a  number  of 
tasks  in  the  realm  of  propagation  modeling.  It  may  not  be  immediately 
clear,  though,  how  to  do  some  things  with  the  program.  The  following 
is  a  discussion  of  a  few  sample  uses. 

The  instructions  for  operating  RAYTRACE  discussed  the  concept  of 
the  dimensionality  of  the  problem.  From  that  discussion,  it  should  be 
clear  how  to  trace  single  rays,  vertical  fans  of  rays,  and  arrays  of 
rays.  A  variation  on  this  theme  that  might  prove  useful  is  the  hori¬ 
zontal  fan  of  rays.  This  may  be  achieved  by  using  a  two  dimensional 
problem  with  only  one  allowed  elevation  angle.  The  mechanics  of  doing 
this  involve  setting  the  starting  and  ending  elevation  values  equal  or 
nearly  equal)  and  entering  a  step  size  that  is  arbitrary  (or  large 
compared  to  the  difference  between  the  starting  and  ending  elevations). 

Information  on  the  coverage  of  an  area  by  a  broadcast  transmitter 
may  be  obtained  by  tracing  a  two  dimensional  set  of  rays.  It  should  be 
noted  that  the  resulting  array  of  landing  points  for  these  rays  will 
not  be  evenly  spaced  in  latitude  and  longitude.  It  is  possible, 
though,  to  interpolate  on  such  a  grid  and  produce  contours  or  other 
desired  information.  At  present  the  only  way  to  achieve  (approxi¬ 
mately)  the  desired  spacing  between  points  is  by  experimentation  with  a 
small  number  of  rays. 

Tracing  rays  between  two  specific  points  (homing)  is  also  a 
desirable  capability.  While  such  a  capability  is  not  currently  built 
into  RAYTRACE,  it  is  relatively  straightforward  to  do  manually.  3v 
tracing  a  pair  of  rays  that  are  fairly  close-in  elevation,  the  results 
for  the  end  points  of  the  pair  of  rays  may  be  used  in  a  linear  interpo¬ 
lation  scheme.  Typically  it  requires  only  five  or  so  iterations  to 
reach  the  desired  convergence  on  the  specific  target  point.  A  similar 
process  may  be  done  for  the  azimuth,  although  the  azimuth  is  usually 
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fairly  well  approximated  by  that  of  the  great  circle  path  between  the 
two  points.  An  azimuth  search  will  usually  also  converge  more  quickly. 

It  is  sometimes  desirable  to  have  detailed  information  along  the 
raypath.  There  currently  exists  some  code  within  RAYTRACE  to  report 
the  height  and  range  at  each  increment  along  the  ray.  for  the  purpose 
of  later  plotting  of  the  raypath.  This  code  is  normally  commented  cut. 
as  the  files  of  coordinates  produced  may  become  enormous.  This  code  is 
located  in  the  routine  RAYSUB  a  few  lines  below  line  3G30Q  (consult  the 
source  code  listing,  Appendix  D) .  It  merely  consists  of  a  WRITE  state¬ 
ment  and  its  corresponding  FORMAT  statement.  Uncommenting  these  lines 
and  recompiling  will  yield  a  version  of  RAYTRACE  that  will  produce  an 
extra  generic  data  file  with  pairs  of  values:  ground  range,  height. 
These  values  may  then  be  used  in  a  plot  of  the  trajectory  of  the  ray. 
Certainly,  more  sophisticated  schemes  are  possible,  but  such  things  are 
best  tailored  to  a  given  need. 

Ultimately,  RAYTRACE  is  extensible.  This  is  most  easily  achieved 
by  extending  the  menu  system.  Adding  to  the  menu  system  allows  more 
parameters  or  flags  to  be  entered  by  the  user.  Flag  values  entered  ir. 
this  manner  could  be  used  to  activate  or  deactivate  additional  sections 
of  code.  This  code  could  then  operate  upon  existing  and  new  parameters 
for  the  calculation  of  additional  results.  Details  of  adjusting  the 
menu  system  are  given  in  a  comment  block  in  the  routine  DOxDATA .  ;ust 
after  line  12002.  The  menu  files  are  discussed  in  Appendix  A.  The 
only  other  requirement  is  the  addition  of  the  new  features  or  calcula¬ 
tions  at  the  appropriate  locations  in  the  existing  program.  This  may 
only  be  determined  by  study  of  both  RAYTRACE  and  the  theoretical 
groundwork  for  the  intended  addition. 

MENU  QUICK  REFERENCE 

The  three  menus  of  RAYTRACE  are  presented  here,  with  brief 
explanations  of  most  menu  items.  They  are  given  one  per  page,  sc  that 
the  user  can  easily  photocopy  them  for  handy  reference.  There  is  alsc 
ample  room  for  notes.  One  suggestion,  if  a  copy  machine  that  reduces 
is  available,  is  to  copy  the  three  menus  reduced,  then  paste  then  :n 
one  sheet.  Copying  this  sheet  will  give  a  single  page  "cheat  sheet". 


MAIN  MENU 

1  -  Edit  launch  parameters  (Go  to  Launch  Parameters  menu 

2  -  Edit  elevation/azimuth  parameters  (Go  to  Elevation  Parameters 

menu) 

3  -  Proceed  with  raytracing 

4  -  Quit  program 
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LAUNCH  PARAMETERS  MENU 


1  -  3ounce  limit  (limit  number  of  earth  impacts, 

2  -  Signal  intensity  (flag  to  turn  on/off  intensity  loss 

calculation) 

3  -  Conductivity  (select  type  of  earth  surface  for 

reflection  loss) 

4  -  Launch  point  (latitude/longitude  location  of  start 

point) 

5  -  Launch  height  (altitude  of  start  point) 

6  -  Range  &  height  limits  (set  great  circle  ground  range  and 

altitude  cutoffs) 

7  -  Ray  path  increment  (set  step  size  along  the  ray) 


a  -  Wave  frequency 
9  -  Done 


(frequency  of  transmission  modeled  by 
the  ray) 

(return  to  the  main  menu) 
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ELEVATION  PARAMETERS  MENU 


1  -  Dimension  of  problem 

2  -  Starring  azimuth 

3  -  Starting  elevation 


(determine  multi-ray 
(set  initial  launch 
(set  initial  launch 


launch  pattern) 
azimuth) 
elevation) 


4 

5 

6 
7 
3 


Elevation  resolution 
Azimuth  resolution 
Elevation  limit 
Azimuth  limit 
Done 


(set  elevation  step  size  for  multi¬ 
ray  calculations) 

(set  azimuth  step  size  for  multi-ray 
calculations ) 

(set  limiting  value  on  elevation  for 
multi-ray  calculations) 
(set  limiting  value  on  azimuth  for 
multi-ray  calculations) 
(return  to  main  menu) 


67 


APPENDICES 


69 


Appendix  A: 
File  Formats 


GRID . DAT 

The  grid  file  is  a  means  by  which  ionospheric  information  may  be 
input  into  RAYTRACS.  The  grid  file  is  generally  produced  externally  to 
RAYTRACE,  either  by  use  of  an  ionospheric  model  program  or  by  process¬ 
ing  of  actual  ionospheric  data.  The  file  contains  the  pertinent  iono¬ 
spheric  information  at  a  gridded  set  of  latitudes  and  longitudes. 
Grids  may  be  entered  from  the  console,  but  this  is  only  practical  for 
relatively  small  grids. 

Grid  files  are  composed  of  a  number  of  data  arrays.  First,  the 
definition  of  the  latitude  and  longitude  grid  is  recorded.  Following 
this,  the  six  ionospheric  parameters  required  for  specification  of  the 
vertical  profile  are  given  for  each  point  on  the  grid.  The  six 
parameters  are  the  maximum  plasma  frequencies  for  the  S,  FI,  and  F' 
layers,  the  heights  for  the  maximum  frequencies  for  the  FI  and  F2 
layers,  and  the  semithickness  of  the  F2  layer.  The  choice  of  these 
parameters  is  determined  by  the  profile  model  that  is  built  into  the 
current  version  of  RAYTRACE.  Finally,  the  date,  time,  and  sunspot 
number  are  recorded. 

The  array  of  values  that  serves  to  define  the  latitude  and  longi¬ 
tude  grid  is  a  real  array  containing  six  parameters.  They  are  the  lat¬ 
itude  and  longitude  spacing  for  the  grid,  followed  by  the  initial  lati¬ 
tude  and  longitude  values  for  the  grid.  The  starting  point  is  taken  as 
the  southwest  corner  of  the  grid.  Values  are  in  degrees  and  longitude 
is  given  as  east  of  Greenwich  positive,  west  negative.  This  gives 
longitudes  running  from  -180  to  +180  degrees.  The  last  two  values  ir. 
the  array  are  the  number  of  points  that  the  grid  is  to  contain  in  the 
latitude  direction  and  in  the  longitude  direction  respectively.  The 
grid  must  be  rectangular  and  if  necessary  should  be  either  padded  with 
more  data  (if  the  grid  is  being  generated  from  a  model  or  interpolation 
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of  actual  data)  or  some  points  eliminated  so  that  it  becomes  rectangu¬ 
lar  . 

The  arrays  of  ionospheric  data  are  written  as  two  dimensional 
arrays  with  the  first  index  corresponding  to  latitude  and  the  second  to 
longitude.  The  indices  represent  the  integer  count  of  grid  points 
traversed  in  the  given  direction  to  reach  the  coordinates  of  the  grid 
point.  The  first  array  contains  the  peak  plasma  frequency  squared 
values  for  the  E-layer,  for  the  entire  grid.  The  second  array  holds 
the  height  of  the  peak  of  the  Fl-layer  and  the  third  holds  the  plasma 
frequency  squared  values  for  the  FI  maximum.  The  last  three  arrays 
contain  the  values  which  are  used  to  specify  the  F2-layer.  They  are. 
in  order  of  appearance,  the  semithickness ,  the  height  of  the  layer 
maximum,  and  the  plasma  frequency  squared  at  the  maximum. 

The  final  array  is  an  integer  array  containing  the  time,  date,  and 
sunspot  number  for  which  the  problem  is  being  run.  These  values  are 
contained  in  the  array  in  this  order:  sunspot  number,  year,  month,  day, 
hour  (UT) ,  and  minute.  The  current  configuration  of  RAYTRACE  no  longer 
uses  this  information  directly  as  the  portions  of  code  that  use  it  have 
been  commented  out.  They  have  been  left  in  both  for  the  possibility  of 
future  calculational  use.  and  so  that  the  information  may  be  included 
in  displays  or  reports  if  desired. 

The  format  of  the  GRID.DAT  type  of  data  file  is  perhaps  best 
illustrated  by  including  fragments  of  code  that  RAYTRACE  uses  to  read 
information  from  the  grid  file.  The  fragmented  listing  \ Listing  1 
includes  the  declaration  statements.  The  file  is  written  unformatted 
to  save  time  and  space.  The  filename  is  set  either  as  a  default  value. 

or  from  a  prompt  to  the  user.  The  correspondence  between  the  arrays 
mentioned  above  and  those  in  Listing  1  is  fairly  obvious.  The  vari¬ 
ables  are  named  according  to  the  convention  that  is  presented  with  tr.e 
source  code  listing  in  Appendix  D. 
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Listing  1 


INTEGER  IVxPARAM ( 6 ) 

C 

REAL  *  8  RVxGRID ( 6 ) 

REAL* 3  RVxIONl ( 30 , 60 ) ,  RVxION2 ( 30 , 60 ) ,  RVxICN3 ( 30 . 60 ) 
REAL'S  RVxI0N4 (30,60) ,  RVxIONS i 30 , 60 ) ,  RVxION6 i 30 , 60 ) 
C 

CHARACTER* 10  KVLxFIL 


OPEN (20, 
REWIND  ( 
READ (20) 
READ ( 20 ) 
READ (20) 
READ (20) 
READ (20) 
READ (20) 
READ (20) 
READ (20) 
CLOSE (20 


FILE=KVLxFIL , FORM= ' UNFORMATTED  1 
20) 

RVxGRID 
( (RVxIONl (I, 

(  (RVXION2 (I , 

(  ( RVxION3 ( I , 

( (RVXION4 (I , 

( (RVxIONS (I, 

( (RVxION6 (I , 

IVxPARAM 


,  J) 
,  J) 
,  J) 
,  J) 
,  J) 
,  J) 


,  J  =  1 
,  J-l 
,  J-l 
,  J-l 
,  J-l 


RVxGRID (6)  i 
RVxGRID (6) ) 
RVxGRID (6) ) 
RVxGRID (6)  ) 
RVxGRID (6) ) 


,  J-l, RVxGRID (6)  ) 


) 


1=1, RVxGRID (5) ) 
1=1, RVxGRID (5) ) 
1=1. RVxGRID (5) ) 
1=1, RVxGRID (5) ) 
1  =  1 , RVxGRID ( 5  i  ) 
1=1, RVxGRID (5) ) 


RAYDAT . DAT 

The  RAYDAT.DAT  type  of  file  is  used  by  RAYTRACE  for  the  storage 
and  retrieval  of  both  the  ionospheric  information  and  parameters  of  the 
problem  that  the  user  has  entered.  For  the  sake  of  simplicity,  the 
ionospheric  information  is  stored  in  exactly  the  same  manner  as  m  the 
case  of  GRID.DAT  type  files.  Arrays  containing  the  other  problem  para¬ 
meters  are  then  added  in  after  the  ionospheric  values.  As  a  conse¬ 
quence  of  this  file  structure,  only  the  arrays  that  are  not  repeated 
from  GRID.DAT  need  be  discussed. 

The  first  of  these  arrays  is  an  integer  array  containing  three 
values.  The  bounce  limit  is  stored  first.  This  sets  a  bound  on  the 
number  of  times  that  a  ray  may  impact  the  earth,  which  is  useful  m 
some  cases  dealing  with  subionospher ic  raypaths.  Next  is  a  flag  mat 
determines  whether  or  not  signal  loss  calculations  will  be  performed. 
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Finally,  there  is  a  flag  that  determines  what  sort  of  surface  will  be 
used  in  reflection  loss  calculations  for  earth  impacts  of  the  ray. 

The  second  array  is  a  real  array  containing  the  latitude  and  long¬ 
itude  of  the  launch  point.  This  is  followed  in  the  array  by  the  range 
limit.  This  parameter  sets  a  bound  on  the  great  circle  ground  range 
chat  the  ray  is  allowed  to  propagate  to.  The  fourth  value  in  the  array 
is  the  size  of  the  raypach  increment.  Fifth  is  the  wave  frequency. 
The  sixth  value  is  the  starting  height  of  the  ray.  above  the  earth  s 
surface.  Finally,  the  seventh  value  is  the  altitude  cutoff  value. 

The  final  array  is  a  real  array  that  contains  the  information 
necessary  to  specify  the  elevations  and  azimuths  at  which  rays  will  be 
sent  out.  The  first  parameter  is  the  dimensionality  of  the  problem. 
This  is  defined  by  considering  the  aim  points  of  the  ray  in  an  eleva¬ 
tion  versus  azimuth  plane.  A  single  ray  is  a  single  point,  and  so  has 
dimension  zero.  A  fan  of  rays  having  a  particular  azimuth  forms  a  line 
of  points,  and  is  considered  dimension  one.  Lastly,  a  set  of  such  fans 
produces  an  array  of  points  on  the  plane  anc  is  therefore  considered  as 
dimension  two.  After  the  dimensionality  of  the  problem  comes 
initial  azimuth  and  the  initial  elevation.  Following  these  values,  -r.- 
azimuth  and  elevation  spacing  between  rays  is  stored.  Last  of  ail.  the 
final  azimuth  and  elevation  values  are  stored. 

As  above,  the  easiest  way  to  make  the  structure  of  the  data  :_le 
manifest  is  to  present  the  fragments  of  code  responsible  for  writing  to 
the  file.  The  code  is  presented  in  Listing  2.  Again,  the  filename  ts 

set  previously  to  its  proper  value.  The  additional  arrays  are  IVxLAL'TJ 

RVxLAUN ,  and  RVxOPTION. 
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istinq  2 


INTEGER  IVxPARAM ( 6 ) ,  IVxLAUN ( 3 ) 

C 

REAL *3  RVxGRID ( 6 ) ,  RVxLAUN(7) 

REAL *3  RVxOPTION ( 7 ) 

REAL *3  RVxIONl (30,60) .  RVxION2 < 30 , 60 ) ,  RVxION3 ( 30 . 60 > 
REAL  *  3  RVXION4 ( 30 , 60)  ,  RVxIONS ( 30 , 60 )  ,  RVxION6 ( 30 , 60 ) 
C 

CHARACTER* 10  KVxDFIL 


OPEN  (30,  FILE  *  KVxDFIL, 
REWIND  (30) 

WRITE  (30)  RVxGRID 
WRITE  (30)  { (RVxIONl (I, J) 

WRITE  (30)  ( ( RVxION2 ( I , J ) 

WRITE  (30)  ( ( RVxION3 ( I , J ) 

WRITE  (30)  ( ( RVxION4 ! I , J ) 

WRITE  (30)  ( ( RVxION5 ( I , J ) 

WRITE  (30)  ( ( RVxION6 ( I , J ) 

WRITE  (30)  IVxPARAM 
WRITE  (30)  IVxLAUN 
WRITE  (30)  RVxLAUN 
WRITE  (30)  RVxOPTION 
CLOSE (30) 


FORM= ' UNFORMATTED ' ) 


,  J=1 , RVxGRID ( 6 )  )  . 1  =  1 , RVxGRID ( 5 )  ) 
,  J=1 , RVxGRID ( 6 ) )  , 1  =  1 , RVxGRID ( 5 )  ) 
,  J=1 , RVxGRID ( 6 )  )  , 1  =  1 , RVxGRID ( 5 )  ) 
,J=1, RVxGRID (6) ) , 1=1, RVxGRID (5) ) 
.  J  =  1 , RVxGRID ( 6 )  )  , 1  =  1 , RVxGRID ( 5 )  ) 
,  J=1 , RVxGRID ( 6 )  )  , 1  =  1 , RVxGRID ( 5 )  ) 


FOR###. DAT 

This  file  is  the  results  file  for  RAYTRACE.  The  ###  represents  a 
number  that  is  assigned  sequentially  during  the  course  of  a  given  ray¬ 
tracing  session  so  that  the  different  runs  during  the  session  nay  ce 
distinguished.  Because  results  files  may  need  to  be  of  greater 
portability,  the  results  are  written  to  disk  in  formatted  form.  The 
results  are  stored  by  first  saving  the  information  necessary  to  deter¬ 
mine  the  number  of  data  points  represented  in  the  file.  Data  points 
consist  of  earth  bounce  points,  and  the  terminal  point  on  the  ray.  The 
azimuth  and  elevation  of  a  particular  ray  are  saved  and  then  the  array 
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containing  the  information  from  all  the  data  points  on  that  ray  is 
stored.  This  then  repeats  until  the  data  from  all  rays  has  been  saved. 

The  number  of  data  points  per  ray  is  determined  from  the  maximum 
number  of  bounces  allowed  by  the  bounce  limit,  plus  one  for  the  term¬ 
inal  point  of  the  ray.  The  proper  number  of  rays  are  then  accessed  by 
using  the  number  of  azimuths  and  the  number  of  elevations  recorded. 
These  set  the  limits  on  two  loops,  within  which  the  file  is  accessed. 

The  array  of  data  for  a  given  ray  is  two  dimensional.  The  first 
index  is  the  number  of  the  data  point  along  the  ray.  The  second  repre¬ 
sents  the  particular  data  element  for  that  point.  The  meaning  of  these 
elements  is  given  in  a  comment  block  in  the  source  code  for  the  subrou¬ 
tine  RAYSUB,  just  after  the  variable  declarations.  The  ones  that  are 
currently  used  are  as  follows.  First  are  the  latitude  and  the  longi¬ 
tude.  The  third  element  is  the  group  time  delay  along  the  ray  to  that 
point.  The  great  circle  ground  range  is  next,  followed  by  the  signal 
loss  in  dB,  due  to  spatial  loss,  focusing  or  defocusing,  and  possibly 
reflection  loss.  The  sixth  element  contains  the  amount  that  the  ray 
has  deviated  from  a  great  circle  path  at  that  point.  The  ninth  element 
of  the  array  gives  the  height  of  the  ray  at  the  data  point.  Element 

ten  contains  the  phase  path  length  along  the  ray  to  that  point.  The 

next  three  elements  give  the  x,  y,  and  z  direction  cosines  of  the  ray 
at  that  point.  Here,  the  x,  y,  and  z  directions  are  in  the  coordinate 
system  where  x  is  south,  y  is  east,  and  z  is  up. 

The  sections  of  code  for  writing  the  results  out  to  the  file  have 

been  excerpted  from  the  main  routine  of  RAYTRACE .  The  code  is  pre¬ 

sented  in  Listing  3.  Also  presented  is  the  code  that  produces  the 

number  associated  with  the  file.  The  integer  IVxIND  is  initialized  to 

40  and  incremented  every  time  a  particular  run  is  complete.  It  is  men 

used  to  produce  the  filename  of  the  results  file. 
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c 


INTEGER  IVxIND ,  IVxLAUN ( 3 ) ,  IVxAZLIM,  IVxELLIM 
REAL *8  RVxAZI,  RVxELEV ,  RVxBOUN ( 11 , 15 ) 


21003 

22000 


CHARACTER* 2  KVxIND 
CHARACTER* 10  KVxOFIL 


WRITE  (KVxIND, ' (12! ' )  IVxIND 
KVxOFIL  *  ' FORO * //KVxIND// *. DAT* 


OPEN  (IVxIND, FILE  =  KVxOFIL) 

WRITE  (IVxIND,  22000)  IVxLAUN ( 1 ) +1 ,  IVxAZLIM,  IVxELLIM 


WRITE (IVxIND,  21003)  RVxAZI,  RVxELEV 


WRITE ( IVxIND ,  21003)  (( RVxBOUN ( L , K) , K=1 , 15 ) ,  L=l, IVxLAUN ( 


CLOSE (IVxIND) 
FORMAT  (G24.14) 
FORMAT  (14) 


MENU  FILES 


The  scheme  for  using  and  presenting  the  menus  and  menu  files  is 
detailed  in  the  source  code  listing  in  subroutine  IOxMENU.  The  method 
is  reviewed  here.  The  file  MASTER. MEN  is  used  to  maintain  a  list  of 
the  rest  of  the  menu  files.  It  is  merely  a  text  file  that  contains  the 
names  of  the  other  menu  files,  with  each  filename  on  a  separate  line. 
RAYTRACE  is  currently  set  up  to  handle  up  to  ten  menu  files  in  addition 
to  the  master  file.  The  filenames  are  ordered  according  to  their 
numbering  within  RAYTRACE.  Filenames  are  currently  configured  to  be  no 
more  than  ten  characters  long. 

The  other  menu  files  contain  the  actual  information  that  is 
displayed  on  the  console  as  a  menu.  As  with  MASTER. MEN,  the  other  .MEN 
files  are  just  text  files.  The  information  needed  for  the  display  of  a 
menu  is  as  follows.  The  first  line  has  two  items  that  are  separated  by 
a  comma.  These  are  the  number  of  items  in  the  menu,  followed  by  the 
title  of  the  menu.  The  number  of  items  is  an  integer.  All  of  the  text 
information  in  these  files  is  read  in  using  an  A40  format,  and  sc  may 
be  no  longer  than  40  characters  long.  After  this  first  line,  the  menu 
items  are  given.  The  text  that  will  be  displayed  for  each  item  is  put 
in  the  file  with  one  menu  item’s  text  per  line.  Again,  these  are  to  be 
no  longer  than  40  characters.  The  last  line  of  the  file  contains  the 
text  for  the  prompt  that  will  be  displayed  at  the  end  of  the  menu. 
This  information  is  accessible  so  that  the  menu  text  may  be  customized 
at  will  by  the  user  with  just  an  ordinary  text  editor. 

A  more  complete  understanding  of  how  this  all  works  will  only  be 
obtained  by  examining  the  source  code  of  subroutine  IOxMENU .  In  parti¬ 
cular,  this  routine  should  be  examined  very  closely  if  any  extensions 
to  RAYTRACE  are  to  be  made.  Any  additional  information  that  must  be 
entered  ought  to  be  entered  by  means  of  a  menu  so  that  the  user  inter¬ 
face  of  the  program  will  remain  consistent.  Examination  of  the  exist¬ 
ing  menu  files  will  also  be  of  assistance. 
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Appendix  B : 

Inventory  of  COMMON  blocks 


This  section  lists  the  COMMON  blocks  used  by  RAYTRACE,  along  with 
the  declarations  of  the  variables  involved.  An  explanation  is  given 
for  some  of  the  variables.  A  complete  explanation  of  all  the  variables 
involved  would  require  describing  significant  portions  of  the  algori¬ 
thms  used,  which  is  beyond  the  scope  of  this  User’s  Guide. 

MAINDAT : 

This  block  contains  the  contents  of  RAYDAT.DAT.  As  may  be  seen 
from  the  EQUIVALENCE  statements,  the  array  RVxIONPT  holds  the  six  sets 
of  ionospheric  parameters  input  from  the  data  file. 

INTEGER  IVxPARAM ( 6 ) ,  IVxLAUN(3) 

REAL* 8  RVxGRID ( 6 )  ,  RVxIONPT ( 30 , 60 , 6 )  ,  RVxLAUN(7),  RVxOPTICNi" 
REAL* 8  RVxIONl (30,60)  ,  RVXION2 ( 30 , 60 ■  RVxION3 ( 30 , 60 ) 

REAL'S  RVxION4 (30,60) ,  RVxION5 ( 30 , 60 ) .  RVxION6 ( 30 , 60 ) 

EQUIVALENCE  ( RVxIONl , RVxIONPT) , ( RVxI0N2 , RVxIONPT (1,1,2)) 
EQUIVALENCE  ( RVxION3 , RVxIONPT (1,1,3)) 

EQUIVALENCE  ( RVxION4 , RVxIONPT (1,1,4)) 

EQUIVALENCE  ( RVxION5 , RVxIONPT (1,1,5)) 

EQUIVALENCE  ( RVxION6 , RVxIONPT (1,1,6)) 

COMMON  /MAINDAT/  RVxGRID,  RVxIONPT,  IVxPARAM,  IVxLAUN , 

*  RVxLAUN,  RVxOPTION 

RESULTS : 

The  RESULTS  common  block  contains  the  array  which  holds  the  oat  a 
for  every  data  point  on  a  particular  ray.  For  each  ray  that  is  trace  i. 
this  data  array  is  recorded.  Refer  to  the  discussion  above  concerning 
the  FOR###. DAT  file  format  for  further  detail  on  this  array. 

REAL  *  8  RVxBOUN (11,15) 

COMMON  /RESULTS/  RVxBOUN 
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LPARM : 


INTEGER  IVxSSNUM,  IVxTIME(5>,  IFxGRND 
REAL *8  RVxYEAR ,  RVxAlOO,  RVxTIM 

COMMON  /LPARM/  IVxSSNUM . IVxTIME , RVxYEAR , RVxAlOO , IFxGRND 
« , RVxTIM 


LOSSES : 

This  block  holds  che  various  components  of  signal  loss  that  are 
computed  by  RAYTRACE.  RVxLOSA  is  the  absorption  loss.  The  code  to 
calculate  this  is  based  upon  empirical  formulae  which  were  appropriate 
to  use  at  earlier  stages  of  the  development  of  RAYTRACE,  but  cannot  be 
used  for  general  paths.  This  code  is  currently  commented  out.  RVxLCSX 
has  suffered  a  similar  fate.  This  was  used  to  represent  the  so-called 
"excess  loss"  that  some  earlier  ionospheric  models  use.  This  value  is 
inappropriate,  though,  for  use  in  examining  specific  raypaths  in  that 
it  becomes  possible  for  two  relatively  adjacent  rays  to  have  anomal¬ 
ously  different  losses.  The  remaining  two  values  are  actually  used  if 
signal  intensity  calculations  are  to  be  performed  at  all.  RVxLOSR 
gives  the  reflection  loss,  and  RVxLOSG  gives  the  geometric  loss.  The 
geometric  loss  is  the  combination  of  the  effects  of  distance  from  the 
source,  and  also  f ocusing/def ocusing  effects. 

REAL *8  RVxLOSA,  RVxLOSR,  RVxLOSX,  RVxLOSG 

COMMON  /LOSSES/  RVxLOSA,  RVxLOSR,  RVxLOSX,  RVxLOSG 


PRAM: 

The  values  in  this  block  are,  in  order:  pi.  a  conversion  factcr  to 
go  from  degrees  to  radians,  the  radius  of  the  earth,  and  the  height 
considered  to  be  the  top  of  the  ionosphere. 

REAL*  8  RPxPI , RPxDTOR , RPxREARTH , RPxHTOP 

COMMON  /PRAM/  RPxPI,  RPxDTOR,  RPxREARTH,  RPxHTOP 
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SCPS1 : 

This  block  contains  information  on  the  number  and  location  of  the 
grid  points.  ICxNSCP  is  the  number  of  grid  points,  and  the  other  two 
are  arrays  containing  the  latitudes  and  longitudes,  respectively,  of 
the  grid  points. 

INTEGER  ICxNSCP 

REAL* 8  RVxLATSC ! 1300 ) . RVxLONSC ( 1300 > 

COMMON  /SCPS1/  ICxNSCP,  RVxLATSC,  RVxLONSC 

SCPS1A : 

These  arrays  contain  the  six  ionospheric  parameters  for  all  the 
grid  points,  with  all  the  layer  peak  plasma  frequency  squared  values  in 
one  array  and  all  the  height  (and  semithickness t  values  in  the  second. 

REAL'S  RVxFNSQ ( 1300 . 3) ,  RVxH(1300,3) 

COMMON  / SCPS1A/  RVxFNSQ, RVxH 

OTHER : 

REAL *3  RVxLATl.  RVxLONl ,  RVxHBOT 
REAL *3  RVxFSQU,  RVxRPI.  RVxHCUT 

COMMON  /OTHER/  RVxLATl , RVxLONl , RVxHBOT . RVxFSQU . RVxRPI . RVxHCUT 

MISC: 

REAL* 8  RVxSEZGEC (3.3) ,  RVxX7 ,  RVxY7 .  RVxZ7 
REAL  *  8  RVxRl ,  RVxR2 ,  RVxHMIN 

COMMON  /MISC/  RVxSEZGEC . RVxX7 , RVxY7 . RVxZ7 , RVxRl . RVxRl . RVxHMIN 
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START : 


This  block  contains  the  initial  position  information  for  the 
raypath  increment. 

REAL *8  RVxXI ,  RVxYI ,  RVxZI ,  RVxLATI ,  RVxLONI 
COMMON  /START/  RVxXI,  RVxYI,  RVxZI,  RVxLATI,  RVxLONI 

END: 

This  block  contains  information  on  the  end  of  the  raypath  incre¬ 
ment  . 

REAL* 8  RVxH5 ,  RVxXF ,  RVxYF ,  RVxZF 
COMMON  /END/  RVxXF,  RVxYF,  RVxZF,  RVxH5 


IONOl : 

This  block  stores  some  ionospheric  parameters. 

REAL *8  RVxALPHA ,  RVxBETA ,  RVxETAl ,  RVxETA2 
REAL* 8  RVxFNSB ( 3 )  ,  RVxHB ( 3 ) 

COMMON  /IONOl/  RVxALPHA, RVxBETA. RVxETAl. RVxETA2 . RVxFNSB, RVxHB 


ICN02 : 

This  block  stores  ionospheric  interpolation  results. 

REAL *8  RVxB5 ( 3 )  ,  RVxB6<3).  RVxA5(3),  RVxA6 < 3 ) 

REAL* 8  RVxE5 ( 3 )  ,  RVxE6(3) 

COMMON  /I0N02/  RVxA5 ,  RVxA6 ,  RVxB5,  RVx86 ,  RVxES .  RVxE6 
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I0N03  : 


This  holds  still  other  quantities  used  in  the  ionospheric  calcula¬ 
tions  . 

INTEGER  IFxCASE 

REAL*  8  RVxVl ,  RVxVl,  RVxXX .  RVxHBND 

COMMON  /ION  03/  RVxVl ,  RVxV2  ,  R'^xXX ,  IFxCASE ,  RVxHBND 

MORE: 

INTEGER  IVxSX .  IVxSY.  IVxSZ 
REAL *8  RVxCX ,  RVxCY .  RVxCZ 

COMMON  /MORE/  IVxSX.  IVxSY,  IVxSZ.  RVxCX,  RVxCY,  RVxCZ 

TEMPI: 

REAL *8  RVxF 40 ,  RVxF65.  RVxKl ,  RVxHL 
COMMON  /TEMPI/  RVxF40 ,  RVxF65,  RVxKl ,  RVxHL 

GORP: 

REAL *8  RVxDD6,  RVxANGLIM 
COMMON  /GORP/  RVxDD6 ,  RVxANGLIM 

TEMP 2: 

These  are  indices  use  in  accessing  grid  arrays  for  mterpc  1  at  i  :r.  . 

INTEGER  IVCxSCS.  IVCxSCTl ,  IVCxSCT2 ,  IVCxSCT3 ,  IFCxN4 
COMMON  /TEMPI/  IVCxSCS,  IVCxSCTl,  IVCxSCT2 .  IVCxSCT3 ,  IFCxM4 
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TEMP 3: 


REAL *3  RTLxD5,  RTLxI3,  RTLxI4,  RTLxI5 
COMMON  /TEMP3/  RTLxI3,  RTLxI4,  RTLxI5,  RTLxD5 

VAR1 : 

REAL  *  3  RVCxXL,  RVCxXU ,  RVCxAO ,  RVCxHU .  RVCxSO 
COMMON  / VAR1/  RVCxXL,  RVCxXU,  RVCxHU,  RVCxAO,  RVCxBO 

VAR2 : 

REAL* 8  RVCxHBl ,  RVCXH2 ,  RVCxYS ,  RVCxSLl ,  RVCXSL2,  RVCxHIL 
COMMON  /VAR2/  RVCxHBl , RVCxH2 , RVCxYS . RVCxSLl , RVCxSL2 , RVCxHl 

VAR3: 

REAL* 8  RVCxAl ,  RVCxBl,  RVCxCl ,  RVCxHIP,  RVCxH2P 
COMMON  /VAR3/  RVCxAl,  RVCxBl,  RVCxCl,  RVCxHIP,  RVCxH2P 

VAR  4: 

REAL *8  RVCXA2,  RVCxB2,  RVCXC2,  RVCXHT3 ,  RVCxHT4 .  RVCXHT5 
COMMON  /VAR4/  RVCxA2 , RVCxB2 , RVCxC2 , RVCxHT3 , RVCxHT4 . RVCXHT5 

RAID: 

INTEGER  IFCxSN 
COMMON  /RAID/  TFCxSN 


TEMP 4: 


REAL* 3  RTLxF3 ,  RTLxFl ,  RTLxF2 
COMMON  /TEMP4/  RTLxFl.  RTLxF2 ,  RTLxF3 


LOCAL : 


REAL *8  RVLxELEV 
COMMON  /LOCAL/  RVLxELEV 
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Appendix  C: 
Error  Messages 


RAYTRACE  will  detect  a  few  errors  internally  and  generate  error 
messages  for  these.  These  are  in  addition  to  those  that  may  ce 
generated  as  run-time  errors  as  specified  by  the  compiler  being  used, 
or  may  be  operating  system  level  errors.  This  section  will  discuss  the 
error  messages  generated  directly  by  RAYTRACE. 

INVALID  CHOICE. 

This  message  indicates  that  a  bad  choice  has  been  made  from  one  of 
the  menus.  A  bad  choice  is  one  that  is  out  of  the  range  of  the  possi¬ 
ble  selections. 

HIT  RETURN  ONLY  TO  CONTINUE. 

The  routine  that  handles  the  'Press  RETURN  to  continue.’  prompt 
will  generate  this  message  if  anything  other  than  an  'A',  or 
return  is  typed. 

Conversion  ERROR,  Please  RETRY  Input 

Any  given  prompt  is  expecting  a  particular  type  of  response  (REAL. 
INTEGER,  etc.)  and  this  message  will  be  given  if  the  value  entered  is 
not  of  the  expected  type.  Note  that  if  a  REAL  is  expected,  and  an 
integer  is  entered,  this  will  not  occur,  as  a  decimal  point  may  ce 
attached  to  the  value. 

RAY  DOES  NOT  PROPAGATE) ! 1 ! 

This  message  indicates  that  a  ray  has  been  given  a  starting  point 
at  an  altitude  inside  the  ionosphere  and  has  parameters  that  are  incon¬ 
sistent  with  any  propagation  for  the  ray. 
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EXCEEDINGLY  WIERD  CASE:  POINT  #1  (&  a  few  values  are  also  displayed) 

If  this  message  ever  appears,  something  has  gone  quite  wrong  in 
the  routine  which  calculates  the  ionospheric  parameters  and  gradients. 
Theoretically ,  this  should  never  be  seen.  Copy  down  ALL  the  values 
given,  along  with  all  other  parameters  from  the  menus  and  the  iono¬ 
spheric  specification  (if  possible).  Contact  the  authors  of  RAYTRACE 
with  this  information. 

EXCEEDINGLY  WIERD  CASS:  POINT  #2 

This  message  is  very  similar  in  nature  to  the  previous  one.  It, 
too,  should  never  occur.  If  it  dees,  however,  follow  the  instructions 
given  for  the  similar  error  above. 
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Azimuth  20.  22,  24,  25,  23,  35,  40  -  44,  49,  56,  58,  61  -  63,  65 
69  -  71 

limit  24,  25,  41,  44,  65 
resolution  24,  25,  41,  43,  65 
starting  azimuth  24,  25,  41,  42,  50,  65 
Backup  26,  54,  55 
Benchmark  57,  53 

Bounce  limit  21,  23,  36,  37,  56,  64.  63,  71 
Comment  62,  67,  75 

block  3,  10,  62.  71 
COMMON  74  -  80 
Compile  3-11 

Conductivity  21,  22.  36,  37,  64 
Coordinates  2.  62,  67 
Cutoff  2,  3,  22,  59 

altitude  22,  39,  64,  69 
height  59 
range  21.  64 


Data  4, 

12,  16-18,  26,  27, 

66,  67,  71,  74 

34, 

37  . 

40, 

43  . 

50  , 

53  , 

54  , 

56 ,  53 

file 

3.  6,  12.  13,  26  - 

28  . 

46  - 

48  . 

51. 

52, 

54  . 

55, 

62,  67 

69,  74 

point  28.  56,  70,  71,  74 

Default  9  -  11,  17,  22,  31,  33,  36  -  40,  42,  49,  53.  59,  60,  67 
value  13 

Defocusing  2,  22,  71,  75 
Deviation  56,  71 

Dimension  24,  25,  41,  45,  46,  49,  50,  53,  61,  65.  69 

Direction  2,  18,  22,  31,  42,  56,  66,  67,  71 

Direction  cosine  56,  71 

Directory  7-11,  27,  47,  58 

DOS  5,  7  -  11,  27,  57,  58,  60 

DOxDATA  62 

E  layer  16,  19,  32,  66,  67 
Earth  impact  2,  21,  28,  56,  64,  69 
ELEV.MEN  6,  7 

Elevation  20,  24,  28,  35,  40  -  44.  50.  51.  56.  53,  61,  63,  65,  6 
-  71 
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Elevation  Parameters  menu  23,  25,  23,  40-46,  49-51,  53,  65 
EQUIVALENCE  74 
Error  17,  59,  60,  81,  82 
roundoff  23 
Excess  loss  75 


Executable 

3, 

6, 

3  -  11, 

53 

Execution 

time 

2  , 

,  57,  53 

FI  layer 

16, 

19, 

32,  33, 

66  , 

67 

F2  layer 

16, 

19, 

32,  33. 

66  , 

67 

Fan  (of  rays)  69 

horizontal  61 
vertical  24,  61 


File  1,  ; 

3,  6 

-  11, 

15,  17,  21, 

26, 

27, 

29,  3 

0  , 

44, 

46  - 

48  . 

50 

52  - 

'  58, 

60 

-  62,  66  - 

73 

data 

3, 

12, 

13  , 

26,  28,  29, 

46 

-  48 

,  51, 

52, 

54, 

55, 

62. 

67 

69, 

74 

grid 

12, 

13, 

15 

.  16.  13,  27 

,  29 

,  31 

,  48, 

49, 

53, 

66 

menu 

6, 

62, 

73 

resul 

t  3,  10, 

12,  21,  27, 

28, 

44, 

45  , 

47  , 

48  , 

51 , 

52, 

55 

56, 

60, 

70, 

71,  74 

resul 

ts 

26 

Filename 

5,  7 

,  8, 

10 

,  17,  26.  29 

,  30 

.  47 

,  48  . 

53  , 

54  , 

58  . 

67  . 

59 

71,  73 


Focusing  2,  22,  71,  75 


FOR###. DAT 

15. 

23, 

70, 

74 

FOR040.DAT 

26, 

45, 

48  , 

51 

FOR041.DAT 

47, 

48, 

52 

Free  space  59 
Frequency 

plasma  16,  19,  32,  58.  59,  66,  67,  76 
wave  21,  23,  36,  40,  59,  64,  69 
Geometric 

loss  75 
spreading  22 

Geosynchronous  22,  59,  60 

Grid  2,  3,  12,  13,  16,  18,  19,  27.  31,  32,  58,  61,  66,  67,  78 
file  12,  13,  15,  16,  13,  29,  31,  48,  49,  53,  66,  67 
point  13,  13,  31  -  33,  66,  67,  76 
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68 


GRID . DAT  15,  18,  27,  31,  48,  49,  66  - 


Group  path 

2 

Group  time 

delay  71 

Height  16, 

19,  32,  39, 

cutoff 

59 

launch 

21,  36,  64 

limit  21,  36,  54 
starting  22,  38,  59 
Homing  61 

Increment  2,  13,  43,  52 

raypath  2,  21,  23,  36,  39.  40,  59,  64,  69,  77 

Index 

array  67,  71,  73 
of  refraction  2 
Installation  1,  7,  9 
Integration  3 


Interpolation 

2,  61,  66,  77 

.  73 
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-  4,  6,  12,  1 

.  3 ,  15  - 

19  ,  21 .  26 ,  27 , 
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38  , 

40.  42.  47  - 

49.  53. 
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63  .  74 

81 . 

32 

IOxMENU  73 
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menu  14 

,  15,  19  -  23, 

25.  27. 

35,  37  -  44,  46 

.  49,  50 

CO 

in 

62,  73 

Iteration  61 

KEYBRD  8,  10 
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22,  31,  32,  38 

,  53,  61 

,  64.  69,  71 
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3,  12,  16,  13, 

27,  31, 

32,  53,  66.  67, 

7  6 

Launch  Parameters  menu  20,  23,  26,  28,  35-38,  40,  49,  63.  54 
LAUNCH . MEN  6 .  7 
Limit  21,  59,  71 

altitude  22,  39 

azimuth  24,  25,  41,  44,  65 

bounce  21,  28,  36,  37,  56,  64,  63,  71 


elevation 

24. 

25  , 

41 . 

43  . 

44 

height  21, 

,  36 

,  64 

range  21. 

22, 

36  . 

39  , 

64  , 

69 

Limiting  value 

25  . 

65 
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Longitude  18,  22,  31,  32,  38,  58,  61,  64,  66,  67,  69,  71 
grid  2,  3,  12,  16,  13,  27,  31,  32,  58,  66,  76 
Loss  75 

absorption  75 
excess  75 
geometric  75 
intensity  64 
of  accuracy  59 

reflection  22,  37,  64,  69,  71,  75 
signal  68.  71.  75 
spatial  71 

Magnetic  field  1,  23,  59 

Main  menu  6,  12,  14,  15,  17  -  20,  23,  25,  27,  34,  35,  40 

44  -  46,  49  -  51,  53,  63  -  65 
MAIN. MEN  6,  7 
MASTER. MEN  6.  7,  73 
Memory  3,  4,  58 

Menu  6,  15,  19,  20,  23,  34,  35,  39,  40,  42.  46,  49,  62, 

32 

choice  20,  49.  81 


Elevation  Parameters 

14.  23, 

25, 

28  . 

40  -  46,  49  - 

63.  65 

file  6,  62,  73 

item  15,  20,  23,  25, 

37  -  44, 

46  , 

49  , 

50,  53,  58,  62, 

Launch  Parameters  14,  20,  23 

,  26 

,  28 

,  35  -  38.  40. 

64 

main  6,  12,  14,  15, 

17  -  20. 

23, 

25, 

27,  34.  35.  40. 

44  -  46,  49  -  51 

,  53,  63 

-  65 

quick  reference  55, 

62 

selection  20,  22,  34 

,  35.  37 

-  40 

.  42 

,  4/*  ,  49.  53.  31 

system  62 


New 

problem 

12, 

13, 

17  , 

26, 

29  , 

48  ,  58 

Old 

problem 

12, 

13, 

17, 

26, 

29, 

52 

Output  21,  56 

file  12,  15,  27 
Overwrite  26.  55 


73  ,  31 


51,  53 


73 

49 .  63 
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Path  length  60 
group  2 
phase  2,  6,  71 
Plasma 

frequency  15,  19,  32.  53,  59,  66,  67.  76 
Plot  24,  62 


Problem 

14 ,  1 

5.  17, 

20  , 

22. 

26  , 

27  ,  ; 

3  3  , 

36  . 

39, 

42 

-  43 

54, 

55,  67 

,  63 

dimension 

24, 

25,  i. 

11.  4 

5. 

49,  50. 

53. 

61 , 

65, 

69 

new 

12, 

13.  16 

,  17  , 

26  . 

29 

,  30 , 

43 

,  53 

,  53 

old 

12. 

13.  16 

7  - 

.  26  , 

29 

.  30 . 

43 

.  52 

.  53 

Profile 

3,  6, 

16,  1 

3,  19,  27 

.  3 

3  ,  66 

Prompt 

5.  13 , 

,  14, 

16  - 

22. 

25 

-  27. 

9  - 

34  , 

37 

-  46 

56,  57,  60,  67,  73,  31 


Propagation  21,  23,  59.  61.  31 
RADAR-C  3,  16 
Range  62 

angular  22,  39 
cutoff  2,  21 

great  circle  22,  39,  64.  69.  71 
ground  39,  62,  64,  69,  71 
limit  21,  22,  36,  39,  64.  69 
Ray  bundle  22 
RAYDAT 

type  17,  26,  44.  46,  47,  50,  52.  53 


RAYDAT . DAT 

15, 

17, 

27, 

28, 

30, 

48.  53, 

Raypath  21, 

,  39, 

62, 

63  , 

75 

increment 

23, 

39, 

40  , 

59, 

69,  7  7 

theory 

2, 

3 

RAYTRA4  9 , 

10 

RAYTRA4 . EXE 

9, 

11 

RAYTRA4 . FOR 

6  - 

8, 

10 

RAYTRACE  1 

-  3. 

5  - 

13, 

20  . 

23  , 

.  24,  27 

- 

63, 

70, 

71, 

73  - 

75  , 

.  31,  32 

READER 2  9 , 

11, 

55  . 

56 

READER2 . FOR 

6, 

7  ,  9 

,  11 

Rectangular 

grid  66 


Reflection  22,  S3 

loss  22.  37,  64,  69,  71,  75 
Refraction  59,  60 
index  of  2 
Resolution 

azimuth  24.  25,  41,  43,  65 
elevation  24,  25,  41  -  43,  65 
Restrictions  57,  53 

Results  6,  3,  10,  12,  23.  26.  23,  47,  50.  55.  56.  59.  61,  62. 

74 

benchmark  37 


directory  3-11 


file 

3  . 

10, 

15,  21.  27.  28.  44.  45.  47,  48,  51.  52.  55,  56 

60, 

70, 

71 

RIONO . FOR 

6, 

7 

RM1SC . FOR 

6, 

7 

Roundoff  error 

23 

RPHASE . FOR 

6, 

7 

RRAYSB . FOR 

6, 

7 

RTILT . FOR 

6, 

7 

Selection 

menu 

15, 

20. 

22  -  25,  34  -  44,  51.  81 

Semi thickness  16,  19,  32,  66,  67,  76 

Session  12,  15,  26.  23,  29,  46  -  48,  52,  53,  70 

Setup  1,  7,  9,  16,  60 

SEZ  coordinates  56 

Signal 

intensity  2.  21,  36,  37,  64,  75 
loss  68,  71,  75 
Simulation  4,  8,  10,  12,  19 
Size  43,  61,  65 

file  7,  11,  58 
grid  31 

increment  2,  23,  59,  64,  69 
Source 

code  1.  4,  6,  3  -  10,  60,  62,  67,  71,  73.  83 
files  6,  9,  11 
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Spacing  25,  43,  SI,  69 

grid  18,  31,  32,  66 
Spherically  symmetric  29,  31,  42 
Starting 

azimuth  24,  25,  41,  42,  50,  65 
elevation  24.  25,  41,  42,  50,  51,  61, 

height  22,  38,  39.  69 
latitude  13,  22,  31,  32,  66 

location  20,  35,  31 

longitude  13.  22,  31.  32,  66 

Subdirectory  3.  10 

Sunspot  number  19,  27,  33.  34,  66,  67 

System  6,  16,  29,  47,  52,  54,  56,  57 

coordinate  2,  56,  71 
menu  62 

operating  3,  5,  7,  3,  10,  27,  60.  31 

Terminal  point  70,  71 
Three-dimensional  1,  16 
Tilt  6,  56 
Trajectory  62 

TRIAL . DAT  29,  44,  47,  43,  53,  57 

TRIAL2.DAT  48 

Tutorial  29,  40,  57 

Update  26,  46,  47,  52 

User  interface  4,  6,  73 

VAX  7.  58 

VAX  11/785  57 

VAX/VMS  5,  27,  57,  60 

Vertical  profile  3,  6,  16,  18,  27.  66 
VMS  5,  7-10,  57,  60 
Warning  18,  27 

Wave  frequency  21,  23,  36,  40,  59,  64.  69 
WRITE  8.  10,  62,  70,  72 
Zenith  25,  42,  50,  51,  58 
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RAYTRACE  USER'S  GUIDE 
APPENDIX  D: 
SOURCE  CODE  LISTING 
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Naming  Convention 


Variables  in  the  source  code  are  generally  named  according  to  the 
following  convention.  In  some  cases,  variables  do  not  fall  neatly 
into  an  appropriate  category  and  the  naming  necessarily  becomes  a 
bit  arbitrary.  Cases  that  do  not  follow  this  convention  at  all  ar 
ones  contained  in  code  that  has  been  obtained  from  other  sources. 
Names  are  defined  by: 


(2  or  3-char  prefix)  separator  char) 
(Type) (Purpose) (Context)  x 


'mnemonic  suffix) 
! Mnemonic ) 


Type: 


I 

J 


INTEGER* 4 
INTEGER'S 


c 

R 


REAL  «  4 
REAL'S 


COMPLEX' 16 


K 


CHARACTER 


L 


LOGICAL 


Purpose:  C 

V 
T 
P 
F 


Constant 

Variable 

Temporary 

Parameter 

Flag 


Context:  none 

L 
S 

c 


in  MAIN  program 
local  to  a  subprogram 
passed  as  an  argument 
passed  in  a  COMMON  block 


EXAMPLES :  RTLxH 

IVxELLIM 


Reai*8,  temporary,  local  variable  H 
Integer'4,  variable  ELLIM  in  MAIN 
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Lina  Numbering  Convention 


Line  numbers 
* 

, _ i 

designates 

major 

subdivisions 


IFxEXI : 

IFxNEW: 

IFxSTAY 

IFxBUN: 

IFxGEN: 


are  generally  designated  as  follows: 
*  *  *  # 


non-zero  for  general  use  as  in  FOR-loops. 

indicates  branching,  and  with  FORMATS 

FORMAT  stmt. 


Flag  Variaoles 


1  indicates  user's  choice  to 
quit  the  program, 

0  otherwise 

1  indicates  a  new  problem  is  being 
done , 

0  otherwise 

1  indicates  that  the  user  is 
continuing  a  problem, 

0  otherwise 

#  of  extra  ray  in  ray  bundle  for 
calculation  of  intensity 

1  *  no  special  condition  exists 

2  =  ray  increment  has  been  adjusts 

so  that  a  layer  boundary  is  no 
overshot 

3  =  a  z-reflection  has  occurred 

4  =  an  x-reflection  has  occurred 

5  =  a  y-refiection  has  occurred 
5  =  ray  is  traveling  downward  m 

free  space  propagation 
~  =  ray  is  traveling  upward  in 
free  space  propagation 
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I F  xN  4  : 


IFxGRND: 


IFxSFL: 


IFLxOUT : 


1  if  che  present  location  is  not 
interior  to  a  triangle  of  grid 
points  for  interpolation 

2  otherwise 

1  if  reflection  loss  calculations 
are  to  use  soil's  conductivity 

2  if  water's  conductivity  is  to  be 
used 

0  to  activate  signal  intensity 
calculations 

1  to  deactivate  them 

1  if  the  present  location  is  outside 
the  grid  of  points 

0  otherwise 


'Notes 


There  will  be  discrepancies  in  the  consecutive  numbering  of  source 
code  lines  within  a  source  code  file,  as  the  blank  lines  between 
subroutines  have  been  skipped.  Also,  the  consecutive  numbering 
runs  to  the  end  of  a  particular  source  file,  starting  over  for  the 
next  file. 

The  symbol  table  after  each  subroutine  contains  a  column  labeled 
"Class".  This  corresponds  to  the  portion  of  the  variable  prefix 
denotes  as  "Context"  in  the  naming  convention  above.  The  nctaoie 
difference  being  that  a  Class  of  'param'  is  the  same  as  a  prefix 
of  'S’,  meaning  that  the  quantity  was  passed  as  an  argument. 

Also  in  the  symbol  table,  the  character  'x',  which  is  used  under 
the  variable  naming  convention  to  connect  the  prefix  with  the 
mnemonic  suffix,  has  been  converted  to  an  upper  case  letter,  'X' . 
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Hiera 


es 
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wine#  Source  Line 


1  PROGRAM  RAYTRACE 

2  C 

3  c  - 

4  C 

5  C  RAYTRACS  --  3D  RAYTRACING  WITH  ACCELERATED  FREE  SPACE 

6  C  PROPAGATION  CALCULATION 

7  C 

3  c  - 

9  C 

10  C  AUTHORS:  MICHAEL  H.  REILLY  4  ERIC  L.  STROBEL 


12  C  DATE: 

13  C 

14  C  VERSION: 

15  0 

16  C - 

17  C 

13  C  REVISED: 

19  C 

20  C 

21  C 

22  C 

23  C 

24  C 

25  C 

26  C 

27  C 

28  C 

29  C 

30  C 

31  C 

32  C 

33  C 

34  C 

35  C 

36  C 

37  C 

38  C 

39  C 

40  C 

41  C 

42  C 

43  C 

44  C 

45  C 

46  C 

47  C 

48  C 

49  C 

50  C 


03/13/33 
4  .  3 


07/ 25/ 36  —  Initial  revision.  Translated 
from  Tektronix  Basic  to  VAX  Fortran  by 
Eric  L.  Strobel. 

37/30/36  —  VI . 1 .  Change  over  to  use  of 
REAL  *  3  precision  in  the  calculations . 

38/12/36  —  72.0.  Add  the  capability  to 
perform  propagation  loss  calculations. 

Also  greatly  massaged  ova:  the  output. 

A  .number  of  minor  and  MAJOR  bugs  corrected. 

39/05/36  --  V 2.3.  Add  horizon  focusing  and 
handle  low  angle  rays.  Record  data  for 
proper  handling  of  skip  focusing.  Record 
maximum  height.  Calculate  deviation  from 
great  circle  path.  Minor  cug  fixes. 

09/17/36  --  V2.4.  Fix  calculation  of  great 
circle  path  deviation.  Introduce  cutoff  m 
number  of  bounces.  Automagically  obtain 
approximate  bottom  of  the  ionosphere,  elim¬ 
inating  the  need  for  the  prompt.  Also  fixed 
rotation  matrix  used  in  calculating  tne  new 
c-values . 

10/09/86  --  V3.0.  Lots  of  changes.  Read  i 
write  to  files.  User-friendly  means  of 
getting  information  into  the  program.  The 
old  Raytrace  is  now  a  subroutine.  Capaoility 
to  do  many  rays  at  a  time.  Able  to  handle 
large  ionospheric  specifications.  Able  to 
change  prcbl=.-.  parameters  without  restarting 
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Line#  Source  Line 


51  C 

52  C 

53  C 

54  C 

55  C 

56  C 

57  C 

53  C 

59  C 

60  C 

61  C 
52  C 
63  C 

54  C 


67  c 
53  C 
59  C 

70  C 

71  C 

72  C 

73  C 

74  C 

75  C 

76  C 

77  C 
73  C 
79  C 

30  C 

31  C 

32  C 

33  C 

34  C 

35  C 
86  C 
37  C 
33  C 

89  C 

90  C 

91  C 

92  C 

93  C 

94  C 

95  C 

96  C 

97  C 

98  C 

99  C 
100  c 


che  program. 

04/09/37  --  V3.1.  Corrected  error  in  loss 
calculation . 

09/01/87  —  V4 . 0 .  Major  revision.  Now  uses 
the  RADAR-C  ionosphere.  Able  to  launch  rays 
inside  and  above  the  ionosphere.  Calcs.  4  rpcs. 
the  direction  cosines  now.  Uses  new  routine  to 
obtain  user  info.  Absorption  4  excess  loss  calcs, 
commenced  out.  Geometric  loss  now  done  correctly. 
Phase  path  calculated.  Data  files  now  BINARY 
(vs.  ASCII).  Upper  bound  at  radius  of  GEO  disc. 
Derivatives  of  range  w.r.t.  elev.  are  incorrect, 
but  unfixed  at  this  point.  WARNING:  Cannot  send 
rays  arbitrarily  close  to  vertical::!  C-values 
are  now  properly  normalized. 

09/30/37  —  74.1.  Phase  path  length  calculations 
added.  Tilt  routines  changed  to  conform  to  the 
requirements  of  using  the  RADAR-C  model. 

01/15/33  --  74.2.  Bug  fixes  and  minor  corrections 
made  over  a  period  of  time.  Added  feature:  will 
now  scop  che  ray  at  the  designated  range,  not  at 
the  end  of  the  next  increment,  as  it  previously 
did.  Also,  some  disused  variables  have  been 
weeded  out  and  some  arrays  which  were  larger  mar. 
currently  necessary  have  oeen  redimensioned.  The 
coda  is  now  smaller  and  it  runs  faster.  The  sour: 
code  is  now  somewhat  universal,  in  that  only  me 
slightest  of  changes  is  needed  to  convert  from 
7AX  to  DOS  or  back,  or  between  various  DOS  Fortran 

03/13/38  —  74.3.  A  number  of  corrections  and 
improvements  have  been  made.  Some  elevation  and 
azimuth  options  were  being  reset  when  they  snoulir. 
have  been  (under  some  circumstances;.  Angular  ran 
is  now  correctly  calculated.  Before,  it  was  based 
the  launch  azimuth,  which  isn't  correct  if  the  ray 
bends.  Now,  the  actual  azimuth  between  the  two  to 
is  calculated  and  used.  Also,  the  actual  angular 
range,  and  not  the  cosine  of  the  angular  range,  is 
used  for  the  range  cutoff. 


Performs  3-D  raytracing  of  radio  propaga¬ 
tion  through  the  ionosphere.  Incorporates  a  spec¬ 
ific  model  for  true  height  profiles  of  electron 
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Line#  Source  Line 


101 

102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 
117 
113 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 
133 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 


C 

c 

c 

c 


c 


c 


c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


10000 


density.  Can  utilizes  data  from  ionospheric  sounders. 


INTEGER  ITxQ,  IFxNEW.  IFxSTAY.  IFxEXI ,  IVxIND 
INTEGER  IVxAZLIM.  IVxELLIM,  IVxPARAM(6),  IVxLAUN ( 3 ) 
INTEGER  IVxVAR .  IVxTYP 

REAL  *  8  RVxGRID ( 6 )  ,  RVxIONPT ( 30 , 60 , 6 )  ,  RVxLAUN ( 7 ) 

REAL-3  RVxOPTION ( 7 ) ,  RVxAZI,  RVxELEV 
REAL-3  RVxBOUN (11.15) .  RVxVAR 

REAL-8  RVxIONl (30, 60) .  RVxION2 ( 30 , 60 ) ,  RVxI0N3 ( 30 . 60 ) 
REAL-3  RVXION4 ( 30 . 60) ,  RVxION5 ( 30 , 60 ) .  RVxICN6 ( 30 , 60 ! 

CHARACTER- 10  EVxDFIL,  KTxTMP ,  KVxOFIL 
CHARACTER-2  KVxIND 
CHARACTER- 1  KTxANS ,  CH 
CHARACTER- 40  KVxPMT 

COMMON  /MAINDAT/  RVxGRID,  RVxIONPT.  IVxPARAM.  IVxLAUN. 
RVxLAUN,  RVxOPTION 
COMMON  /RESULTS/  RVxBOUN 

Stuff  the  big  array  with  pieces  of  more  manageable  size. 
This  is  in  order  to  compensate  for  the  unfortunate  DCS 
restrictions  on  record  sizes. 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


(RVxIONl. RVxIONPT) , ( R7xI0N2 . RVxIONPT ( 1 . 1 , 
( RVxION3 . RVxIONPT (1,1.3)) 

(  RVXION4 , RVxIONPT (1,1.4)) 

( RVxION5 . RVxIONPT (1,1,5)) 

(  RVXION6 , RVxIONPT (1.1.6)) 


Data  setup  section 


KVxPMT  =»  '  ' 

IVxTYP  3  0 
ITxQ  *  0 
IVxVAR  »  0 
RVxVAR  3  0.0 
KTxTMP  3  *  ' 

IVxIND  3  40 
IVxELLIM  =  0 
IVxAZLIM  *  0 
RVxAZI  3  0.0D00 
RVxELEV  3  0.0D00 


ine#  Source  Line 


151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

16  5 
166 

167 

168 

169 

170 

171 

172 

17  3 

174 

175 

176 

177 
1-73 
179 

130 

131 
182 

183 

184 
135 
186 
137 
188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 


C 

c 

c 

c 


10005 

C 

r 

C 

c 


IFxSTAY  =  1  indicates  that  the  user  has  responded  with 
'yes’  to  the  query  about  performing  another  problem. 

IF  ( IFxSTAY. EQ. 1;  SO  TO  20000 

WRITE  16.11001) 

KVxPMT  =  'Is  this  a  new  (1)  or  old  (0)  proolem? 

A  new  problem  is  one  for  which  no  RAYDAT.DAT  or  similar 
file  exists.  Such  a  file  does  exist  for  an  old  proolem 
and  contains  cne  user  inputs  from  a  previous  run. 

CALL  KEY3RD ( KVxPMT , 1 . ITxQ , IFxNEW . RVxVAR . KTxTMP  I 

IF  ( ITxQ  .  LT  .  1  .  OR  .  ,  .  .'JOT  .  (IFxNEW  .  EQ  .  1  .  OR  .  IFxNEW  .  EQ  .  0  . 

SO  TO  10005 


C - 

C 

C  Section  to  handle  the  set  up  of  the  problem's  data 

C  by  reading  from  file  and  editing  some  of  the 

C  data. 

C 

c  - 

c 

IF  ( IFXNEW. EQ. 1 ;  THEN 
C 

C - 

C  IFxNEW  =  1  -->  new  problem,  so  DOxDATA  to  get  the  user 

C  options  and  ionospheric  data,  men  write  out  to 

C  a  datafile. 

C - 

C 

WRITS  (6.11004) 

KVxDFIL  =  ’ RAYDAT . DAT ' 

KVxPMT  =  'information  (10  char  max. : 1 
C 

C  Ask  the  user  where  to  store  the  problem's  information. 

C 

CALL  KEYBRD ( KVxPMT . 3 . ITxQ , IVxVAR . RVxVAR . KVxDFIL . 

OPEN  (30,  FILE=KVxDFIL .  FORM* ' UNFORMATTED ' . STATUS = ' ME 
CALL  DOxDATA ) IFxSTAY .  IFxNEW.  IFxSXI , 


REWIND 

■:  30 

WRITE 

(  30  ) 

RVxGRID 

WRITE 

(30) 

i  (RVxIONl (I, J)  ,J=1. RVxGRID 

6  i 

,  1  =  1 . RVxGRID 

WRITE 

(  30  ) 

( (RVXION2 ( I . J) . J=1 . RVxGRID i 6 i 

.1=1  RVxGRID 

WRITE 

(  30  ) 

( (RVXI0N3 l I , J) ,J»1, RVxGRID (6) 

.  1  =  1 , RVxGRID 

WRITE 

(  30) 

( (RVxION4 (I. J) .  J  =  l, RVxGRID 

6  i 

.  1  =  1 , RVxGRID 

WRITE 

(30) 

i ( RVXI0N5 ( I , J ) , J=1 , RVxGRID 

6  ) 

,  1  =  1 , RVxGRID 

WRITE 

(30) 

( lRVxION6 ( I , J) .  J  =  l, RVxGRID 

6  i 

.  1  =  1 . RVxGRID 

WRITE 

(  30! 

IVxPARAM 
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201 

202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 
217 
213 

219 

220 
221 
222 

223 

224 

225 

226 
227 
223 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 


C 


u 

C 

c 

c 

c 


WRITE  (30)  IVxLAUN 
WRITE  (30)  RVxLAUN 
WRITE  (30)  RVxOPTION 
CLOSE (30) 

IFxEXI  a  1  indicates  that  the  user  has  chosen  to  quit  the 
program. 

IF  (IFxEXI.EQ.il  SO  TO  20700 
ELSE  IF  ( IFxNEW . EQ . 0 )  THEN 


IFxNEW  =  0  — >  old  problem,  so  read  from  the  datafile, 

then  DOxDATA  to  check  for  any  changes  the  user 
wants  to  naxe  to  the  options. 


WRITS  ;  6, 11004) 

KVxDFIL  =  'RAYDAT.DAT' 

KVxPMT  =  'information  (10  char  max):' 

C 

C  Ask  the  user  where  to  score  the  problem’s  information. 

C 

CALL  KEYBRD ( KVxPMT . 3 , ITxQ , IVxVAR . RVxVAR . KVxDFIL ) 

OPEN  (30.  FILE*KVxDFIL ,  FORM* ' UNFORMATTED ’ ,  STATUS* ' OLD ' 
REWIND  (30) 

READ  (30)  RVxGRID 

READ  (30)  (  (RVxIONl  ( I  .J)  .  J*1 .  RVxGRID  (6  )).  1*1 ,  RVxGRID  •. 

READ  (30)  ( (RVxION2( I. J) ,J*1, RVxGRID (6) ) ,1*1, RVxGRID1 

READ  (30)  ( (RVxION3( I. J) ,J*1. RVxGRID (6) ) .1*1, RVxGRID! 

READ  (30)  ( (RVXION4 ( I ,J) ,J=1 , RVxGRID ( 6 i ), 1*1 .RVxGRID ■ 

READ  (30)  ( (RVxIONS ( I ,J) . J*1 . RVxGRID < 6) ). 1=1 . RVxGRID > 

READ  (30)  ( (RVXION6 (I, J) , J* 1 , RVxGRID ( 6 ) ). 1=1, RVxGRID! 

READ  (30)  IVxPARAM 

READ  (30)  IVxLAUN 

READ  (30)  RVxLAUN 

READ  (30)  RVxOPTION 

CALL  DOxDATA (IFxSTAY,  IFxNEW.  IFxEXI) 

IF  ( IFxEXI. EQ. 1)  THEN 
C 

C  The  user  has  chosen  to  quit,  so  close  the  file  and  quit. 

C 

CLOSE  (30) 

GO  TO  20700 

END  IF 

10010  KVxPMT  *  'Overwrite  existing  file  ( Y / N >  ? 

C 

C  - 

C  Give  the  user  the  choice  of  replacing  the  old  problem's 

C  data  with  the  (possibly  new)  current  data,  or 
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251  C 

252  C - 

253  C 

254 

255 

256 

257 

258 

259 

260 

261  C 

262  C 

263  C 

264  C 

265 

266 

267 

268  C 

269  C 

270  C 

271 

272 

273 

274  C 

275  C 

276  C 

277  C 

278 

279 

280  10015 

281 
232 
283 

234 

235 

236 

237 
283 

289 

290 

291 

292 

293 

294  C 

295  C 

296  C 

297 

298 

299  11001 

300  11004 


making  a  second  (backup)  datafile. 


CALL  KEYBRD ( KVxPMT , 3 , ITxQ , IVxVAR , RVxVAR . KTxANS ) 

IF  (KTxANS. EQ. 'Y' )  THEN 
GO  TO  10015 

ELSE  IF  (KTxANS. EQ. 'N' )  THEN 
CLOSE (30! 

KTxANS  3  1  ' 

KVxPMT  3  ' 3ackup  the  datafile  (Y/N>? 

If  the  user  has  decided  not  to  overwrite  the  old  data,  ask 
if  a  separate  copy  is  to  be  made... 

CALL  KEYBRD ( KVxPMT , 3 , ITxQ , IVxVAR . RVxVAR . KTxANS i 

IF  t KTxANS. EQ. 'N* )  GO  TO  20000 

KVxPMT  3  'New  filename  (10  char  max)?  ’ 

...  and  if  so,  ask  what  the  new  file's  name  will  be. 

CALL  KEYBRD ( KVxPMT , 3 . ITxQ , IVxVAR , RVxVAR , KVxDFIL ) 

OPEN  ( 30 , FILE3KVxDFIL , FORM3 ' UNFORMATTED  *  , STATUS3 ' NEW 

ELSE 

The  user  has  given  an  unexpected  response,  so  go  back  and 
do  it  over  again. 

GO  TO  10010 

END  IF 

REWIND  (30) 

WRITE  (30)  RVxGRID 

WRITE  (30)  (  (RVxIONKI,  J)  ,  J=1  .  RVxGRID  (  6  )  )  .  1  =  1,  RVxGRID  ( 

WRITE  (30)  ( ( RVxI0N2 ( I , J ) , J=1 , RVxGRID (6) ) ,  I  =  l,RVxGRIDi 

WRITE  (30)  ( (RVxION3( I, J) ,J31. RVxGRID (6) ) ,1=1, RVxGRID. 

WRITE  (30)  ( (RVXION4 (I ,J) ,J=1 , RVxGRID (6) ), 1=1 , RVxGRID ( 

WRITE  (30)  ( ( RVxION5 ! I , J) , J=1 , RVxGRID ( 6 ) ) . 1=1 , RVxGRID i 

WRITE  (30)  ( (RVXION6 (I, J) ,J»1. RVxGRID (6) ), 1=1 , RVxGRID ' 

WRITE  (30)  IVxP ARAM 
WRITE  (30)  IVxLAUN 
WRITE  (30)  RVxLAUN 
WRITE  (30)  RVxOPTION 
CLOSE (30) 

ELSE 

Else  this  is  an  unexpected  answer,  so  re-prompt, 

GO  TO  10005 

END  IF 

FORMAT  (//////////////////////////////) 

FORMAT  ( ' OEnter  filename  for  storage  of  ionospheric’' 
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301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 
313 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 


C 

c - 

c 

C  End  data  set  up  section. 

C 

c  - 

c 

20000  IF  (IFxSTAY.EQ. 1)  THEN 
C 

C - 

C  If  we've  been  running  and  decide  to  do  another  problem, 

C  (STAY  in  the  program)  re-cycle  starts  here.  DOxDATA 

C  to  get  the  (possibly  new)  user  values  for  the  next 

C  problem  &  give  the  user  the  opportunity  to  update 

C  the  datafile. 

C - 

C 

CALL  DOxDATA (IFxSTAY,  IFxNEW,  IFxEXI) 

C 

C  IFxEXI  »  1  indicates  that  the  user  has  decided  to  quit. 

C 

IF  ( IFxEXI. EQ.l)  GO  TO  20700 
KTxANS  =  ‘  ' 

KVxPMT  *  ’Update  the  datafile  (Y/N)?  ' 

CALL  KEYBRD ( KVxPMT , 3 , ITxQ , IVxVAR , RVxVAR . KTxANS ) 

IF  ( KTxANS. EQ. 'Y' )  THEN 

OPEN  130,  FILE  *  KVxDFIL ,  F0RM= ' UNFORMATTED ’ ) 
REWIND  (30) 

WRITE  (30)  RVxGRID 

WRITE  (30)  ( (RVxIONl (I. J) . J*1 , RVxGRID ( 6 ) ) . 1*1 

#, RVxGRID (5) ) 

WRITE  (30)  (  (RVxI0N2(I.  J)  .  J=*l .  RVxGRID  (  6  )  )  .1  =  1 

#, RVxGRID (5) ) 

WRITE  (30)  ( (RVXION3 (I, J)  . J»1 , RVxGRID!  6 )  )  ,  1  =  1 

#. RVxGRID (5) ) 

WRITE  (30)  ( (RVXION4 (I , J) , J»1 .RVxGRID (6) ) , 1=1 

#. RVxGRID (5) ) 

WRITE  (30)  ( (RVXION5 (I, J) . J*1  RVxGRID (6 >». I»1 

#, RVxGRID (5) ) 

WRITE  (30)  ( ( RVxION6 ( I . J ) , J=1 , RVxGRID ( 6 ) ) .1=1 

# , RVxGRID ( 5 ) ) 

WRITE  (30)  IVxPARAM 
WRITE  (30)  IVxLAUN 
WRITE  (30)  RVxLAUN 
WRITE  (30)  RVxOPTION 
CLOSE ( 30) 

END  IF 

KTxANS  =  '  ' 

ENDIF 

C 
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351  C 

352  C 

353  C 

354  C 

355  C 

356  C 

357  C 

358  C 

359  C 

360  C 

361  C 

362  C 

363  C 

364 

365 

366 

367 
363 

369 

370 

371 

372 

373 

374 

375 

376 

377 
373 

379  C 
330  C 

381  C 

382  C 

383  C 

384 

385 

386 

387 

388  C 

389  C 

390  C 

391  C 

392  C 

393 

394 

395 

396 

397 

398 

399  C 

400  C 


Begin  actually  firing  out  some  rays.  Results  are  stored 
in  consecutively  numbered  files,  FORnnn.DAT,  starting 
with  nnn  =  040.  Beware  that  if  the  program  is  run  on 
DOS  or  similar  systems,  starting  another  run  of  the 
program  may  cause  data  loss,  since  the  new  result  files 
will  simply  write  over  the  old  ones. 


First,  select  the  appropriate  limits  on  the  DO  loops. 

IF  ' IDNINT ; RVxOPTION ' 1 i  <  . SQ . 0  J  THEN 
IVxELLIM  =  1 
IVxAZLIM  =«  1 

ELSE  IF  ( IDNINT ( RVxOPTION! 1) ) .SQ.li  THEN 
IVxAZLIM  =  1 

IVxELLIM  =•  1+IDNINT  (  (  RVxOPTION  (  7  )  -RVxOPTION  (  3  )  )  / 
#RVxOPTION ( 5 ) ) 

ELSE 

IVxELLIM  =■  1+IDNINT  (  ( RVxOPTION  (  7  )  -RVxOPTION  (  3  )  )  / 
#RVxOPTION( 5) ) 

IVxAZLIM  *  1+IDNINT ( (RVxOPTION ( 6 ) -RVxOPTION ( 2 ) ) / 
#RVxOPTION ( 4 ) ) 

END  IF 

PRINT  • , *  ' 

PRINT  BEGINNING  RAV  LOOPS.' 

Generate  the  name  of  the  result  file  by  putting  the  numbe 
part  into  an  'internal  device'  (a  string;.  This  string 
is  then  concatenated  with  the  rest  of  the  file's  name. 

WRITE  (KVxIND, ' i 12 )  * )  IVxIND 
KVxOFIL  *  ' FORO ' //KVxIND// ' .DAT' 

OPEN  (IVxIND. FILE  *  KVxOFIL ) 

WRITE  (IVxIND,  22000)  IVxLAUN ( 1 > +1 .  IVxAZLIM.  IVxELLIM 

These  first  numbers  are  written  to  the  result  file  so  tha 
an  analysis  program  can  determine  how  many  points  of 
information  there  are. 

DO  20200  1=1.  IVxAZLIM 

DO  20100  J  =  1,  IVxELLIM 

RVxAZI  =  RVxOPTION (2)  +  ( 1-1 ) -RVxOPTION ( 4 ; 

IF  (RVxAZI .GE. 360. 0D00)  RVxAZI  =  RVxAZI  -  360.1 
RVxELEV  =  RVxOPTION (3)  +  ( J-l ) ‘RVxOPTION ( 5 i 
WRITE (IVxIND.  21003)  RVxAZI,  RVxELEV 

Preface  the  results  for  a  ray  with  the  azimuth  and  elevat 
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Sourc 

401 

C 

402 

C - 

403 

C 

404 

c 

405 

406 

c 

407 

c 

403 

c 

409 

c 

410 

c 

411 

412 

413 

414 

415 

c 

416 

c 

417 

r 

413 

419 

c 

420 

20098 

421 

20099 

422 

20100 

423 

424 

425 

426 

427 
423 

20200 

429 

c 

430 

c 

431 

c 

432 

433 

c 

434 

C 

435 

C - 

436 

c 

437 

C 

433 

c 

439 

c - 

440 

c 

441 

20500 

442 

c 

443 

C 

444 

445 

446 

447 

448 

449 

450 

c 

Line 


RAYSUB  is  che  routine  chat  actually  traces  the  rays. 

CALL  RAYSUB (RVxAZI.  RVxELEV) 

Mow,  write  the  results  of  the  ray.  The  elements  of  the 
result  array  are  discussed  in  the  comment  block  near 
the  beginning  of  RAYSUB. 

WRITE (IVxIND,  21003)  ( ( RYxBOUN ( L , K)  , K=1 , 15  i  ,  L=l. 

IVxLAUN(l) +1) 

DO  20099  K  *  1,  15 

DO  20098  L  *  1,  IVxLAUN<l)-i 

Clear  the  result  array  for  the  next  ray. 

RVxBOUN (  L  ,  K )  =0.0 
CONTINUE 
CONTINUE 
CONTINUE 
CONTINUE 
CLOSE (IVxIND) 

PRINT  - , '  ' 

PRINT  RAY  LOOPS  DONE.’ 

PRINT  « . ’  ’ 

WRITE  (6,21004)  KVxOFIL 

Increment  the  unit  number  chat  the  results  will  be 
written  to. 

IVxIND  =  IVxIND  +  1 


End  section  that  shoots  rays. 


RVxPMT  ■  ’Do  another  problem  (Y/N)?’ 

Give  the  user  a  chance  to  quit. 

KTxANS  =  ’ 

CALL  KEYBRD ( KVxPMT , 3 , ITxQ , IVxVAR , RVxVAR . KTxANS ) 
IF  (KTxANS .EQ. ’Y’ )  THEN 
IFxSTAY  =  1 
GO  TO  10000 

ELSE  IF  ( ITxQ.LT.l. OR. KTxANS. ME. ’N’ )  THEN 
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451  GO  TO  20500 

452  ENDIF 

453  KTXANS  »  ’  ' 

454  20700  CALL  IOxPRET(CH) 

455  C 

456  C  -Vow,  give  the  user  che  chance  co  abort  the  guit. 

457  C 

453  IF  (CH.SQ.'A')  GO  TO  20500 

459  C 

460  C  Print  the  closing  message. 

461  C 

462  WRITE  (6.21007) 

463  WRITE  (6,21003) 

464  WRITE  (6.21009) 

465  21002  FORMAT  (Al! 

466  21003  FORMAT  (G24.14) 

467  21004  FORMAT  (///, IX Results  written  to  file  ' ,A10.//) 

463  21007  FORMAT  (IX, 'Session  done.  For  safety''s  sake,  copy  the  data' 

469  21008  FORMAT  (IX, 'and  result  files  into  a  separate  directory  to' i 

470  21009  FORMAT  (IX, 'prevent  accidental  overwriting.') 

471  22000  FORMAT  (14) 

472  END 

main  Local  Symbols 

Name  Class  Type  Size 

ITXQ . local  INTEGER*  4  4 

I  .  local  INTEGER *4  4 

J . local  INTEGER*  4  4 

K  .  local  INTEGER* 4  4 

CH .  local  CHAR* 1  1 

L  .  local  INTEGER* 4  4 

IFXEXI . local  INTEGER*  4  4 

IFXNEW . local  INTEGER*  4  4 

IVXIND . local  INTEGER*  4  4 

KVXIND . local  CHAR«2  2 

KVXDFIL  .  local  CHAR* 10  10 

KTXANS . local  CHAR«1  1 

IVXVAR . local  INTEGER*  4  4 

KVXOFIL  .  local  CHAR* 10  10 

RVXAZI . local  REAL  *  8  3 

KTXTMP . local  CHAR*  10  10 

IFXSTAY  .  local  INTEGER* 4  4 

RVXVAR . local  REAL  *  8  8 

KVXPMT . local  CHAR*  40  4  0 

IVXELLIM . local  INTEGER*  4  4 

RVXELEV . local  REAL  *  3  8 

IVXTYP . local  INTEGER  *4  4 
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main  Local  Symbols 


Name  Class  Type  Size 

IVXAZLIM . local  INTEGER  *4  4 

IVXPARAM . MAINDAT  INTEGER* 4  24 

IVXLAUN  .  MAINDAT  INTEGER *4  12 

RVXGRID  .  MAINDAT  REAL* 8  43 

RVXIONPT . MAINDAT  REAL *3  3  6400 

RVXLAUN  .  MAINDAT  REAL *8  56 

RVXOPTION  .  MAINDAT  REAL *8  56 

RVXBOUN  .  RESULTS  REAL *8  1320 

RVXION1  .  MAINDAT  REAL *8  14400 

RVXI0N2  .  MAINDAT  REAL* 3  14400 

RVXION3  .  MAINDAT  REAL* 8  14400 

RVXION4 . MAINDAT  REAL  *  3  14400 

RVXION5  .  MAINDAT  REAL* 3  14400 

RVXION6  .  KXINDAT  REAL* 8  14400 
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474 

475  C 

476  C 

477  C 
473  C 
479  C 

430  C 

431  C 

432  C 

433  C 

434  C 

435  C 

436  C 

437  C 
433  C 
439  C 

490  c 

491  C 

492  C 

493  C 

494  C 

495  C 

496  C 

497  C 

498  C 

499  C 

500  C 

501  C 

502  C 

503  C 

504  C 

505  C 

506  C 

507  C 

508  C 

509  C 

510  C 

511  C 

512  C 

513  C 

514  C 

515  C 

516  C 

517  C 
513  C 

519 

520 

521 

522  C 

523 


SUBROUTINE  DOxDATA ( IFSxSTA .  IFSxNEW,  IFSxEXI) 


DOxCATA  --  SUBROUTINE  TO  MAINTAIN  AND  ACCESS  THE  DATA  FCR 
CONVENIENT  USE  OF  THE  WHOLE  RAYTRACING  PROGRAM 

CALLED  3Y:  MAIN 

CALLS:  IOxPRET .  REYBRD 


AUTHOR:  ERIC  L.  STROBEL 

DATE:  01/15/33 

VERSION:  2.1 


REVISED:  10/09/36  —  VI . 0 .  Initial  revision. 

09/01/37  --  V2.0.  Uses  the  new  REYBRD 
routine  and  unformatted  reads  and  writes 

01/15/33  —  V2.1.  Contains  necessary 
concessions  to  the  limited  environment  t 
DOS  provides. 


USES:  IFSxSTA Y  A  FLAG  THAT  INDICATES  THAT  THE 

USER  HAS  REMAINED  IN  THE  PROBLEM 
IFSxNEW  A  FLAG  THAT  INDICATES  THAT  THIS 

IS  A  NEW  PROBLEM 

TO  DECIDE  HOW  TO  PRESENT  AN  INTERFACE  TO  THE  USER.  IN 
ORDER  TO  MAINTAIN  THE  DATABASE  FILES 

RETURNS:  IFSxEXI  A  FLAG  THAT  INDICATES  THA 

THE  USER  HAS  CHOSEN  TO  E 


INTEGER  IFSxSTA,  IFSxNEW,  IFSxEXI,  ITLxQ 
INTEGER  IVxPARAM ( 6 ) ,  ITLxCl,  ITLXC2.  ITLxC3 
INTEGER  ITLxTMP ,  IVxLAUN(3),  IVLxTYP . I VLxVAR 

REAL*8  RVLxLAT ,  RVLxLON .  RVxGRID(6i,  RVxIONPT ( 30 , 60 . 6 
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524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 
533 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 


REAL* 3  RTLxl .  RTLx2 .  RVxLAUN ( 7 ) .  RVxOPTION ( 7 )  ,  RTxA 
REAL *8  RVLxVAR.  RPxDTOR 

REAL*8  RVxIONl (30.60) ,  RVxICN2 ( 30 . 60 ) ,  RVxION3 ( 30 . 60 ) 
REAL* 8  RVxION4 ( 30 . 60 )  .  RVxIONS ( 30 , 60 )  .  RVxION6 ( 30 , 60 ) 

C 

CHARACTER*10  KVLxFIL.  XTLxTMP 
CHARACTER* 40  KVLxPMT 
CHARACTER*!  XVLxANS 
CHARACTER *7  KCLxLBL  i  6 

r* 

w 

COMMON  /MAINDAT/  RVxGRID  .  RVxIONPT  .  IVxPARAM  .  IVxLAUN  . 

#  RVxLAUN, RVxOPTION 
C 

C  scuff  che  big  array  with  pieces  of  more  manageaole  air 

C  This  is  in  order  co  compensaca  for  Che  unfortunate  C 

C  rescnccions  on  record  sices. 

C 

EQUIVALENCE  ( RVxIONl . RVxIONPT ) ,  l RVxION2 . RVxIONPT ( 1 , 1 , 2 : 
EQUIVALENCE  ( RVxION3 , RVxIONPT (1,1,3)  > 

EQUIVALENCE  ( RVxION4 , RVxIONPT (1,1,4) ) 

EQUIVALENCE  ( RVxIONS , RVxIONPT (1,1,5)) 

EQUIVALENCE  ( RVxION6 , RVxIONPT (1,1,5)) 

C 

DATA  KCLxLBL  /'  foE*»2'.'  hmFl ' , ' f oFl * • 2 1 . ’  YnF2 ' . 

#’  hmF2 '  , ' f oF2*  *  2 ' / 

C 

C - 

C 

KVLxPMT  »  '  ‘ 

IVLxTYP  ■  0 
IVLxVAR  =  0 
RVLxVAR  =  0.0 
KTLxTMP  *  '  ’ 

RPxDTOR  -  0.0174532925D00 
C 

C - 

C  If  this  is  the  first  time  thru  on  a  new  problem,  read 

C  in  either  an  ionospheric  grid  produced  by  anotner 

C  program  (RADAR-C  righc  now)  or  a  grid  that  is  to  be 

C  entered  by  hand. 

C - - - 

C 

10000  IF  ( IFSxNEW . EQ . 1 . AND . IFSxSTA . EQ . 0 )  THEN 
WRITE (6, 11001) 

WRITE (6, 11002) 

KVLxFIL  =*  ' GRID . DAT ' 

KVLxPMT  *  '  (type  NONE  if  none  exists) 

CALL  KEYBRD ( KVLxPMT , 3 , ITLxQ , IVLxVAR . RVLxVAR , KVLxF I L 
IF  ( KVLxFIL . EQ . ' NONE ’ )  THEN 
C 
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574 

575 

576 

577 
573 

579 

580 

581 

582 

533 

534 

535 

586 

587 

588 
539 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 
601 
602 

603 

604 

605 

606 

607 

608 

609 

610 
611 
612 

613 

614 

615 

616 

617 

618 

619 

620 
621 
622 
623 


C  No  external  grid  file  exists,  so  build  it  by  hand. 

C 

OPEN ( 20 .  FILE= ' GRID . DAT  *  . FORM= ' UNFORMATTED ' 

#,  STATUS- 'NEW  ) 

REWIND  (20) 

10020  WRITE  (6 .'( IX, /////// 111/11/ ill lllli/ll/,  ill'll!;  i 

C 

C  RVxGRID  gives  info  needed  to  obtain  the  lat’s  &  Ion's 

C  of  the  grid. 

C 

KVLxPMT  =  'Input  lat  grid  spacing  (deg) : 

RTLxl  =  RVxGRID (1) 

RTLx2  *  RVxGRID (2) 

C 

C  Prompt  for  the  latitude  spacing  of  the  lat-lon  grid. 

C 

CALL  KEYBRD < KVLxPMT . 2 , ITLxQ , IVLxVAR . RTLxl , KTLxTMP ) 
I?  iITLxQ.GE.I)  RVxGRID (1)  *  RTLxl 
KVLxPMT  =  'Input  Ion  grid  spacing  (deg):  ’ 

C 

C  Prompt  for  the  longitude  spacing  of  the  lat-lon  grid. 

C 

CALL  KEY8RD <  KVLxPMT . 2 , ITLxQ , IVLxVAR , RTLx2 . KTLxTMP > 
IF  ( ITLxQ. GE.l)  RVxGRID (2)  =  RTLx2 
C 

WRITE (6. 11007) 

KVLXPMT  *  ’  LATITUDE  : ’ 

RTLxl  -  RVxGRID (3) 

C 

C  Prompt  for  the  grid's  starting  latitude. 

C 

CALL  KEYBRD ( KVLxPMT , 2 . ITLxQ , IVLxVAR . RTLxl . KTLxTMP • 
IF  (ITLxQ. GE.l)  RVxGRID (3)  =  RTLxl 
C 

KVLxPMT  -  'LONGITUDE  (east  =  positive!:' 

RTLX2  *  RVxGRID (4) 

C 

C  Prompt  for  the  grid's  starting  longitude. 

C 

CALL  KEYBRD ( KVLxPMT . 2 , ITLxQ . IVLxVAR , RTLx2 , KTLxTMP 
IF  (ITLxQ. GE.l)  RVxGRID (4)  =  RTLx2 
C 

KVLxPMT  -  'Input  #  of  grid  points  in  lat.: 

RTLxl  =  RVxGRID (5) 

C 

C  Prompt  for  the  number  of  grid  point  in  the  latitude  direct 

C 

CALL  KEYBRD ( KVLxPMT . 2 , ITLxQ , IVLxVAR , RTLxl , KTLxTMP 
IF  (ITLxQ. GE.l)  RVxGRID (5)  =  RTLxl 
C 


Line#  Source  Line 


624 

625 

626 
627 
623 
629 
530 

631 

632 

633 

634 

635 

636 

537 

538 

639 

640 

641 

642 

643 

644 

645 

646 

647 
643 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 
661 
662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 


KVLxPMT  =  '  ...  in  Ion. : 

RTLxl  =  RVxGRID ( 6 ) 

C 

C  Prompt  for  the  number  of  grid  point  in  the  longitude  directic 

C 

CALL  KEYBRD ( KVLxPMT , 2 . ITLxQ . IVLxVAR . RTLxl . KTLxTM? ) 

IF  i ITLxQ. GE.i:  RVxGRID (6)  =  RTLxl 
C 

C  Verify  the  grid  inputs  and  give  the  user  a  chance  to  re-enter 

C  them  to  fix  errors. 

C 

KVLxANS  *  ' Y ' 

KVLxPMT  =  'Grid  setup  OK  !Y/N)  ?  ' 

CALL  KEYBRD ‘ KVLxPMT . 3 . ITLxQ , IVLxVAR . RVLxVAR . KVLxANS ) 
IF  ( KVLxANS . EQ . ' N ' . OR . KVLxANS . EQ .  '  n  '  /  GO  TO  13020 
C 

C  Write  the  results  out  into  a  GRID  file. 

C 

WRITE (20)  RVxGRID 

WRITE  (6. 'll X, //////////////// ///////////////////)') 

C 

C  DO-loops  for  the  entry  of  ionospheric  parameters  at  each 

C  grid  point. 

C 

DO  10200  1=1.  RVxGRID (5) 

RVLxLAT  =  RVxGRID  (  3  )  I  —  1 )  ‘RVxGRID  ( 1 ! 

DO  10100  J=l.  RVxGRID (6 

RVLxLON  =  RVxGRID (4)  *  ( J-l ) -RVxGRID ( 2 > 

WRITE  (6.12002)  RVLxLAT.  RVLxLON 

10049  DO  10050  K-1,6 
C 

C  The  elements  of  KCLxLBL  may  be  found  in  the  DATA  statement 

C  at  the  beginning  of  this  routine. 

c 

KVLxPMT  =  'Input  '/ /KCLxLBL ( K) // '  :' 

RTLxl  *  RVxIONPT ( I , J , K) 

CALL  KEYBRD ( KVLxPMT . 2 . ITLxQ , IVLxVAR . RTLxl 

# . KTLxTMP ) 

IF  (ITLxQ. GE.I)  RVxIONPT ( I, J.K)  =  RTLxl 

10050  CONTINUE 

KVLxANS  *  'Y* 

KVLxPMT  =  'Profile  inputs  OK  ( Y / N ) ? 

C 

C  For  each  grid  point,  verify  correct  entry  of  values  ar.d  give 

C  the  user  a  chance  to  fix  errors. 

C 

CALL  KEYBRD ( KVLxPMT , 3 . ITLxQ . IVLxVAR . RVLxVAR 

# . KVLxANS ) 

IF  ( KVLxANS. EQ. 'N' .OR. KVLxANS. EQ . 'n' )  GO  TO  13345 

WRITE  ( 6 ,  '  ( IX ,//////////////////////  /////-/ ,  I .  :  <  ) 
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Line#  Source  Line 


674 

675 


10100 

10200 


CONTINUE 

CONTINUE 


676 

C 

677 

c 

Write  the  gri 

d  file  in  the  same  manageable  pieces  that 

678 

c 

everything  else  expects  it  to  be  in. 

679 

c 

630 

WRITS  , 

20  )  ■;  ( RVxIONl  ( I ,  J)  ,  J  =  1 ,  RVxGRID  <  6  i  i  .  1  =  1 

631 

# . RVxGRID ( 5 ) ) 

632 

WRITS  : 

10 )  , !RVxION2 l I . J) , J  =  1 , RVxGRID (6 i )  . 1=1 

133 

#,  RVxGRID ( 5)  ) 

634 

WRITE  •. 

20 i  ( : RVxION3 ( I , J) , J=1 , RVxGRID (6 i i .1=1 

635 

#, RVxGRID ( 5) ) 

636 

WRITE  ( 

20  I  '  < RVXION4 ( I , J!  .1  =  1, RVxGRID ( 6 )  .1=1 

6  37 

#  ,  RVxGRID  •,  5  /  : 

633 

WRITE  , 

20 )  RVxIONS ( I , Ji . J=1 , RVxGRID i 6 i ! . 1=1 

639 

#, RVxGRID (5) ) 

690 

WRITS  : 

20 )  i i RVxION6 i I , J) , J=1 . RVxGRID ( 6) ) . 1=1 

691 

# , RVxGRID ( 5 ) ) 

692 

c 

693 

c 

Do  a  senes  of 

prompts  for  the  sunspot  number  and  time  values 

694 

r 

695 

10201 

KVLxPMT 

=  ‘Input  (integer)  sunspot  number: 

696 

ITLxTMP 

=  IVxPARAM ( 1 ) 

697 

CALL  KEYBRD ( KVLxPMT . 1 , ITLxQ , ITLxTMP . RVLxVAR . KTLxTM? i 

698 

IF  (ITLxQ. GE.l)  IVxPARAM! 1)  =  ITLxTMP 

699 

c 

700 

701 

;o2 

703 

704 


KVLxPMT  *  '  Inpuc  year: 

ITLxTMP  =  IVxPARAM ( 2 ) 

CALL  KEYBRD ( KVLxPMT . 1 , ITLxQ . ITLxTMP . RVLxVAR . KTLxTM? 
IF  ( ITLXQ. GE.l)  IVxPARAM i 2)  =  ITLxTMP 


705 

706 

707 

708 

709  C 

710 

711 

712 

713 

714  C 

715 

716 

717 

718 

719  C 

720 

721 

722 

723 


RVLxPMT  =  month:  ' 

ITLxTMP  =  IVxPARAM (3) 

CALL  KEYBRD ( KVLxPMT . 1 , ITLxQ , ITLxTMP , RVLxVAR , KTLxTM? 
IF  (ITLxQ. GE.l)  IVxPARAM ( 3 )  =  ITLxTMP 

KVLxPMT  =  ' . . .  day:  * 

ITLxTMP  *  IVxPARAM (4) 

CALL  KEYBRD ( KVLxPMT , 1 , ITLxQ , ITLxTMP . RVLxVAR . KTLxTM? 
IF  (ITLxQ. GE.l)  IVxPA?  AM l 4 )  =  ITLxTMP 

KVLxPMT  *  'Input  UT  time  (hr)  :  ' 

ITLxTMP  =  IVxPARAM (5) 

CALL  KEYBRD ( KVLxPMT, 1 , ITLxQ , ITLxTMP . RVLxVAR , KTLxTM? 
IF  (ITLxQ. GE.l)  IVxPARAM (5)  =  ITLxTMP 

KVLxPMT  =  ' . . .  UT  time  (min) : 

ITLxTMP  *  IVxPARAM ( 6 ) 

CALL  KEYBRD ( KVLxPMT , 1 , ITLxQ , ITLxTMP , RVLxVAR , KTLxTM? 
IF  (ITLxQ. GE.l)  IVxPARAM ( 6 )  =  ITLxTMP 
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724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 
"37 
733 
"39 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 


C 


C 

c 

c 


u 

C 


c 

c 


c 

c 

c 


11001 

11002 

11007 

12002 

C 

C - 

c 

c 

c 

c 

c - 

c 

c 

c 

c 

c 

c 

c 


WRITE  (20)  IVxPARAM 

KVLxPMT  =  'S.S.  #  and  times  OK  (Y/N)?  ' 

KVLxANS  =  ' Y ' 

Again,  give  the  user  a  chance  to  verify  the  entries  and  to 
correct  errors. 

CALL  KEYBRD ( KVLxPMT , 3 , ITLxQ , IVLxVAR , RVLxVAR , KVLxANS 
IF  (KVLxANS. SQ.  N’  .OR. KVLxANS. SQ.  Jn'  i  GO  TO  10201 

Close  the  GRID  file  and  go  on  to  get  the  rest  of  the  user's 
input . 


CLOSE (20) 

GO  TO  20000 
END  IF 


Read  the  externally  constructed  grid  file. 


FILE=KVLxFIL 

20) 

RVxGRID 
( (RVxIONl (I 
( (RVXION2 (I 
( (RVXION3 ( I 
( (RVXION4 (I 
( (RVXION5 ( I 
( (RVXION6 (I 
IVxPARAM 


IL . FORM= ' UNFORMATTED ' ) 


OPEN<  20 
REWIND 
READ (20) 

READ ( 20 ) 

READ (20) 

READ (20) 

READ (20) 

READ ( 20 > 

READ (20) 

READ (20) 

CLOSE ( 20 ) 

END  IF 

FORMAT (/////////////////////////////.//, 

FORMAT ( IX The  ionospheric  grid  file  name  is?') 

FORMAT ( IX Input  starting  latitude  and  longitude  in  degrees 

FORMAT (/ , IX, 'GRID  PT .  -  Lat:  ' .G15.6,'  -  Lon:  ’,G15.5.  , 


J) 

J) 

J) 

J) 

J) 

J) 


,  J=1 , 
,  J»1 , 
,  J»1 
,  J-l, 
,  J=1 

,  j=i , 


RVxGRID (6) 
RVxGRID (6) 
RVxGRID (6) 
RVxGRID (6) 
RVxGRID (6) 
RVxGRID (6) 


1  =  1 
1  =  1 
1  =  1 
1  =  1 
1  =  1 
1  =  1 


RVxGRID (5) ! 
RVxGRID i 5) ) 
RVxGRID - 
RVxGRID  < 
RVxGRID ( 
RVxGRID : 5  >  ; 


'/  ) 


Done  reading  in  data,  now  build/alter  database  of 
options,  by  processing  menu  choices. 


It  should  be  noted  that  by  simply  adding  to  the  list 
of  lines  contained  in  the  computed  GO  TOs ,  additional 
items  may  be  attached  to  the  existing  menus,  or  addition 
menus  may  be  added.  If  the  menu  system  is  extended 
in  this  way,  the  routine  IOxMENU  is  of  sufficient 
generality  to  handle  this.  The  appropriate  menu 


in  tn  m 


Line#  Source  Line 


774  C  files  must  be  changed/ added  and  care  should  be 

775  C  taken  to  make  sure  that  any  one  menu  list  doesn't 

776  C  become  so  large  that  part  of  it  scrolls  up  off  the 

777  C  screen  before  the  prompt  comes  up.  The'  menu  file 

773  C  scheme  is  discussed  in  a  comment  block  in  the 

779  c  routine  IOxMENU. 

780  C 

731  C - 

782  C 

783  C  - 

784  C  MENU  1  --  Main  menu;  4  choices 

735  C - 

786  C 

787  20000  CALL  IOxMENU ( 1 . ITLxCl ) 

788  GO  TO  (20010,  20200,  20400,  20600),  ITLxCl 

789  C 

790  C - 

791  C  MENU  2  —  Launch  parameters  menu;  9  choices 

792  C  - 

793  C 

794  20010  CALL  IOxMENU ( 2 ,  ITLxC2) 

795  GOTO  (20020,20030,20040,20050,20060,20070.20080 

796  #.20090,20000),  ITLxC2 

797  20020  IF  ( IVxLAUN ( 1 ) . EQ . 0 )  IVxLAUN(l)-l 

‘*98  KVLxPMT  *  ’Bounce  limit  ' 

799  ITLxTMP  =  IVxLAUN ( 1 ) 

800  C 

801  C  Prompt  for  the  limit  in  the  number  of  times  the  ray 

802  C  will  be  allowed  to  return  to  earth,  if  this  is  in 

303  C  fact  an  applicable  concept.  The  default  value  is 

804  C  1. 

805  C 

806  CALL  KEYBRD ( KVLxPMT , 1 . ITLxQ , ITLxTMP . RVLxVAR , KTLxTMP ) 

807  IF  ( ITLxQ. GE.l)  IVxLAUN ( 1 )  =  ITLxTMP 

808  GO  TO  20010 

809  20030  KVLxPMT  »  ’Do  signal  intensity  (no  =1)?  ' 

310  ITLxTMP  »  IVxLAUN (2) 

811  C 

812  C  Prompt  to  find  out  whether  or  not  the  user  wants  signal 

813  C  intensity  to  be  calculated. 

814  C 

815  CALL  KEYBRD ( KVLxPMT. 1 . ITLxQ, ITLxTMP , RVLxVAR. KTLxTMP) 

316  IF  (ITLXQ. GE.l)  IVxLAUN(2)  =  ITLxTMP 

817  GO  TO  20010 

818  20040  KVLxPMT  *  'Reflect  from  ground(l)  or  water (0)?  ' 

819  ITLxTMP  =»  IVxLAUN  (3) 

820  C 

821  C  Prompt  the  user  to  choose  a  generic  conductivity  for  tne 

822  C  reflection  loss  calculation  at  an  earth  bounce  point. 

823  C  Someday  this  should  be  replaced  with  a  global  conducti 
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Line# 


Source  Line 


324 

825 

326 

327 
323 
329 
830 
331 

832 

833 
334 
835 

336 

337 
833 
339 
840 

341 

342 
843 

344 

345 

846 

847 

343 
349 
850 
351 
852 

353 

354 

855 

856 
357 

858 

859 

860 
861 
362 

863 

864 
365 
866 

867 

868 

869 

870 
371 

872 

873 


C 

C 


20050 

c 

c 

c 

c 


20060 

c 

c 

c 


20070 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 


20080 


map . 

CALL  KEYBRD ( KVLxPMT , 1 , ITLxQ , ITLxTMP , RVLxVAR . KTLxTMP ) 

IF  ( ITLxQ . GE . 1 )  IVxLAUN ( 3 )  =  ITLxTMP 
GO  TO  20010 

KVLxPMT  =  'Enter  launch  pt.  latitude  ' 

Do  a  pair  of  prompts  for  the  latitude,  longitude  location 
of  the  starting  point  of  the  ray. 

RTLxl  =  RVxLAUN ( 1 ) 

CALL  KEYBRD ( KVLxPMT , 2 , ITLxQ , IVLxVAR , RTLxl , KTLxTMP ) 

IF  ! ITLxQ . GE . 1 )  RVxLAUN ( 1 )  =  RTLxl 
KVLxPMT  *  'Enter  launch  pt.  longitude  ' 

RTLx2  =»  RVxLAUN  (2) 

CALL  KEYBRD ( KVLxPMT , 2 . ITLxQ , IVLxVAR , RTLx2 . KTLxTMP ) 

IF  ( ITLxQ. GE.l)  RVxLAUN (2)  =  RTLx2 
GO  TO  20010 

KVLxPMT  *  'Enter  starting  ht.  (km)  ' 

RTLxl  =  RVxLAUN (6) 

Prompt  for  the  altitude  of  the  starting  point  for  the  ray. 

CALL  KEYBRD ( KVLxPMT . 2 , ITLxQ , IVLxVAR , RTLxl . KTLxTMP ) 

IF  (ITLxQ. GE.l)  RVxLAUN (6)  =  RTLxl 
GO  TO  20010 

IF  (RVxLAUN ( 3)  .EQ. 0.0  I  RVxLAUN ( 3 )  =  3000- 0D0C 
IF  ( RV  xLAUN ( 7 )  . EQ .0.0)  RVxLAUN(7)  =  36000. 0D00 

A  pair  of  prompts  to  establish  the  range  and  altitude 
cutoff  values  necessary  to  prevent  the  problem  from 
running  on  forever.  The  range  is  the  ground  range 
along  the  ground  track  of  the  ray,  irregardless  of  the 
altitude  and  actual  path  of  the  ray.  The  default 
value  for  the  ground  range  is  3000  km,  and  the  default 
for  the  altitude  limit  is  36000  km,  or  approximately 
geostationary  altitude. 

KVLxPMT  *  'Enter  range  limit  (km) 

RTLxl  *  RVxLAUN (3) 

CALL  KEYBRD ( KVLxPMT , 2 , ITLxQ , IVLxVAR . RTLxl . KTLxTMP ) 

IF  (ITLXQ. GE.l)  RVxLAUN! 3)  =  RTLxl 
KVLxPMT  ■  'Enter  altitude  limit  (km)  ' 

RTLx2  =  RVxLAUN (7) 

CALL  KEYBRD ( KVLxPMT , 2 , ITLxQ , IVLxVAR , RTLx2 , KTLxTMP ) 

IF  (ITLxQ. GE.l)  RVxLAUN ( 7 )  =  RTLx2 
GO  TO  20010 

IF  ( RVxLAUN ( 4 ) . EQ . 0 . 0 )  RVxLAUN ( 4 )  =  4.0D00 
KVLxPMT  =  'Enter  raypath  increment  (km)  ’ 

RTLxl  =  RVxLAUN ( 4 ) 
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374 

C 

375 

c 

876 

c 

877 

c 

873 

c 

879 

c 

880 

381 

332 

383 

c 

334 

385 

336 

20090 

387 

c 

333 

c 

339 

c 

390 

c 

891 

c 

892 

c 

893 

c 

394 

c 

895 

396 

897 

898 

c 

399 

c 

900 

c - 

901 

c 

902 

c - 

903 

c 

904 

905 

20200 

906 

907 

20210 

908 

C 

909 

c 

910 

C 

911 

C 

912 

c 

913 

c 

914 

c 

915 

c 

916 

c 

917 

918 

919 

920 

921 

922 

923 

c 

Prompt  for  the  size  of  the  nominal  raypath  increment. 

The  default  value  of  4  km  represents  a  compromise 
between  execution  time  (longer  increments  =  faster 
execution)  and  accuracy  (shorter  increments  =  more 
accurate ) . 

CALL  KEYBRD  (  KVLxPMT  .  2  ,  ITLxQ  ,  IVLxVAR  ,  RTLxl ,  KTLxTMP  ) 

IF  ( ITLxQ. GE.I)  RVxLAUN ( 4 )  =  RTLxl 
GO  TO  20010 

KVLxPMT  *  'Enter  wave  frequency  !MHz)  ' 

IF  ( RVxLAUN ( 5 ) . EQ . 0 . 0 )  RVxLAUN ( 5 )  =  5.0D00 
RTLxl  *  RVxLAUN (5) 

Prompt  for  the  frequency  of  the  HF  transmission  that 
the  ray  is  supposed  to  represent.  The  default  value 
of  5  MHz  is  somewhat  arbitrary.  Since  the  program 
performs  frequent  divisions  by  wave  frequency  squared, 
some  sort  of  non-zero  default  value  is  needed  just  to 
prevent  'unexplained'  crashes  of  the  program  for  new 
problems . 

CALL  KEYBRD ( KVLxPMT , 2 . ITLxQ , IVLxVAR , RTLxl , KTLxTMP ) 

IF  (ITLxQ. GE.I)  RVxLAUN (5)  =  RTLxl 
GO  TO  20010 


MENU  3  —  Elevation  parameters  menu:  8  choices. 


CALL  IOxMENU ( 3 . ITLxC  3 ) 

GO  TO  (20210. 20220, 20230 , 20240, 20250 , 20260 . 20270 , 20000  )  I 
KVLxPMT  *  'Enter  dimension  of  problem  ' 

RTLxl  =  RVxOPTION ( 1 ) 

The  dimension  of  the  problem  goes  as  follows  (the  reason 
the  term  dimension  should  become  obvious): 

0  »  a  single  ray  (a  single  point  on  the  sky) 

1  ■  a  vertical  fan  of  rays  at  a  single  azimuth 

(a  line  of  points  on  the  sky) 

2  »  a  set  of  fans  of  rays  (an  array  of  points  on 

the  sky) 

CALL  KEYBRD ( KVLxPMT , 2 , ITLxQ , IVLxVAR , RTLxl , KTLxTMP ) 

IF  ( ITLxQ. LT.l)  THEN 
GO  TO  20200 

ELSE  IF  ( IDNINT ( RTLxl ) . GT . 2 . OR . IDNINT ( RTLxl ) . LT . 0 )  THEN 
GO  TO  20210 

ELSE 
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924 

925 

926 

927  20220 

928 

929  C 

930  C 

931  C 

932 

933 

934 

935  20230 

936 

937 

938  C 

939  C 

940  C 

941  C 

942  C 

943  C 

944  C 

945 

946 

947 

948  20240 

949 

950 

951 

952 

953 

954  C 

955  C 

956  C 

957  C 

958  C 

959  C 

960  C 

961  C 

962 

963 

964 

965  20250 

966 

967 

968 

969 

970 

971  C 

972  C 

973  C 


RVxOPTION  ( 1 )  =*  RTLxl 
GO  TO  20200 

END  IF 

KVLxPMT  =  'Sneer  starting  azimuth  (degt 
RTLxl  =  RVxOPTION (2) 

Prompt  for  the  initial  azimuth  for  the  problem. 

CALL  KEY3RD ( KVLxPMT . 2 . ITLxQ , IVLxVAR , RTLxl , KTLxTMP ) 

IF  ( ITLxQ. GE.l)  RVxOPTION (2)  =  RTLxl 
GO  TO  20200 
WRITS  (6, 22009) 

KVLxPMT  =  'for  values  >90  deg  from  zenith.  ' 

RTLxl  =  RVxOPTION ( 3 ) 

Prompt  for  the  initial  elevation  for  the  problem. 

For  a  starting  point  at  greater  than  zero  altitude, 
elevation  angles  may  be  greater  than  90  degrees 
from  the  zenith.  Such  angles  are  designated  by 
negative  values. 

CALL  KEY3RD ( KVLxPMT , 2 , ITLxQ , IVLxVAR , RTLxl . KTLxTMP ) 

IF  (ITLxQ. GE.l)  RVxOPTION (3)  =  RTLxl 
GO  TO  20200 

IF  ( IDNINT ( RVxOPTION ( 1 ) ) . EQ . 0 )  THEN 

IF  ( RVxOPTION ( 5 ) . EQ . 0 . 0 )  RVxOPTION(5>  *  1.0D00 
GO  TO  20200 
END  IF 

KVLxPMT  *  'Enter  elev.  resolution  -,deg) 

RTLxl  *  RVxOPTION (5) 

Prompt  for  the  spacing  of  rays  in  the  elevation 
direction.  This  prompt  is  only  displayed  if  it 
is  appropriate,  namely  if  the  dimension  of  the 
problem  is  1  or  2.  Otherwise,  a  default  value 
of  1  is  set  and  the  user  is  returned  direccly  to 
the  elevation  parameters  menu. 

CALL  KEYBRD ( KVLxPMT . 2 , ITLxQ , IVLxVAR , RTLxl . KTLxTMP ) 

IF  (ITLxQ. GE.l)  RVxOPTION (5)  =  RTLxl 
GO  TO  20200 

IF  ( IDNINT ( RVxOPTION ( 1 ) ) . LT . 2 )  THEN 

IF  ( RVxOPTION ( 4 )  . EQ  .  0 . 0 )  RVxOPTION ( 4 )  =  l.ODOO 
GO  TO  20200 
END  IF 

KVLxPMT  =  'Enter  azimuth  resolution  (deg) 

RTLxl  =  RVxOPTION ( 4 ) 

Prompt  for  the  azimuth  spacing  of  the  rays.  This 
prompt  is  only  displayed  if  it  is  appropriate, 
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974  C 

975  C 

976  C 

977  C 
973  C 

979 

980 

981 

982  20260 

983 

984 

985 

986 

987 

988  C 

989  C 

990  C 

991  C 

992  C 

993  C 

994  C 

995  C 

996  C 

997  C 
9?8 
999 

1000 

1001  20270 

1002 

1003 

1004 

1005 

1006 

1007  C 

1008  C 

1009  C 

1010  C 

1011  C 

1012  C 

1013  C 

1014  C 

1015  C 

1016 

1017 

1018 

1019  20400 

1020  C 

1021  C 

1022  C 

1023  C 


namely  if  the  dimension  of  the  problem  is  2. 

Otherwise,  a  default  value  of  1  is  set  and  the  user 
is  returned  directly  to  the  elevation  parameters 
menu . 

CALL  KEYBRD ( KVLxPMT , 2 , ITLxQ , IVLxVAR , RTLxl , KTLxTMP ) 

IF  ( ITLxQ. GE.l)  RVxOPTION ( 4 )  »  RTLxl 
GO  TO  20200 

IF  ( IDNINT ( RVxOPTION ( 1 ) ) . EQ . 0 )  THEN 

IF  (RVxOPTION (7 ) .EQ. 0.0)  RVxOPTION (7)  =  RVxOPTION ( 3 ) 
GO  TO  20200 
END  IF 

KVLxPMT  ■  'Enter  elev.  limit  (deg)  ' 

RTLxl  »  RVxOPTION ( 7 ) 

Prompt  to  establish  the  other  end  of  the  range  of 
elevation  values  to  be  stepped  through,  the  range 
beginning  with  the  starting  elevation  from  above. 

This  prompt  is  only  displayed  if  appropriate,  namely 
if  there  are  to  be  multiple  rays.  Otherwise,  the 
limit  is  set  to  be  equal  to  the  starting  elevation  and 
the  user  is  returned  directly  to  the  elevation 
parameters  menu. 

CALL  KEYBRD ( KVLxPMT , 2 , ITLxQ , IVLxVAR , RTLxl , KTLxTMP ) 

IF  (ITLxQ. GE.l)  RVxOPTION (7)  -  RTLxl 
GO  TO  20200 

IF  ( IDNINT ( RVxOPTION ( 1 ) ) . LT . 2 )  THEN 

IF  (RVxOPTION  (6)  .EQ.0.0)  RVxOPTION(6)  =  RVxOPTION! 2) 
GO  TO  20200 
END  IF 

KVLxPMT  ■  'Enter  azimuthal  limit  (deg)  ' 

RTLxl  ■  RVxOPTION! 6) 

Prompt  for  the  other  end  of  the  range  of  azimuth  values 
which  will  be  stepped  through,  beginning  with  the 
starting  azimuth  value.  This  prompt  is  only  displayed 
when  appropriate,  i.e.  when  there  the  dimension  of  the 
problem  is  2.  Otherwise,  the  limit  is  set  to  be  equal 
to  the  starting  azimuth  and  the  user  is  returned 
directly  to  the  elevation  parameters  menu. 

CALL  KEYBRD ( KVLxPMT , 2 , ITLxQ , IVLxVAR . RTLxl , KTLxTMP ) 

IF  (ITLxQ. GE.l)  RVxOPTION (6)  =  RTLxl 

GO  TO  20200 

RETURN 

Line  20400  is  selected  when  the  decides  that  all  necessa 
values  have  been  entered  and  that  it  is  time  to  start 
sending  out  the  rays . 
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Line#  Source  Line 


1024  C 

1025  20600  IFSxEXI  -  1 

1026  C 

1027  C  This  secs  the  EXIT  flag  to  1,  indicating  that  the  user  has 

1028  C  decided  to  exit  the  program. 

1029  C 

1030  RETURN 

1031  22009  FORMAT ( IX . ’ Enter  starting  elevation  (deg),  use  neg.'i 

1032  END 

DOXDATA  Local  Symbols 

Name  Class  Type  Size 

IFSXEXI . param 

IFSXNEW . param 

IFSXSTA . param 

IVLXTYP  .  local  INTEGER *4  4 

I . local  INTEGER*  4  4 

J  .  local  INTEGER-4  4 

K  .  local  INTEGER *4  4 

ITLXQ  .  local  INTEGER *4  4 

KVLXFIL  .  local  CHAR*10  10 

KVLXANS  .  local  CHAR*1  1 

IVLXVAR  .  local  INTEGER* 4  4 

RVLXLAT  .  local  REAL *8  8 

ITLXTMP  .  local  INTEGER* 4  4 

RPXDTOR  .  local  REAL *8  8 

KTLXTMP  .  local  CHAR* 10  10 

RVLXVAR  .  local  REAL *8  8 

RVLXLON  .  local  REAL* 8  8 

ITLXC1 . local  INTEGER*  4  4 

KVLXPMT  .  local  CHAR* 40  40 

ITLXC2 . local  INTEGER*  4  4 

ITLXC3 . local  INTEGER*  4  4 

RTLX1  .  local  REAL *8  3 

RTLX2  .  local  REAL* 8  8 

KCLXLBL  .  local  CHAR*7  42 

IVXPARAM . MAINDAT  INTEGER *4  24 

IVXLAUN  .  MAINDAT  INTEGER *4  12 

RVXGRID  .  MAINDAT  REAL *8  48 

RVXIONPT . MAINDAT  REAL  *  8  86400 

RVXLAUN . MAINDAT  REAL* 8  56 

RVXOPTION  .  MAINDAT  REAL *8  56 

RVXION1  .  MAINDAT  REAL* 8  14400 

RVXION2 . MAINDAT  REAL* 8  14400 

RVXION3 . MAINDAT  REAL* 8  14400 

RVXION4  .  MAINDAT  REAL *8  14400 

RVXION5  .  MAINDAT  REAL* 3  14400 
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DOXDATA 

Mane 

RVXION6 


Local  Symbols 


Class  Type  Size 

MAINDAT  REAL* 8  14400 
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1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 
1061 
1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 
1081 
1082 
1083 


SUBROUTINE  IOxMENU ! N ,  CHOICE) 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


IOxMENU  —  SUBROUTINE  TO  SET  UP  A  MENU  BY  READING  'TEMPLATES' 
FOR  THE  MENUS  FROM  FILES,  THEN  RETURNING  THE  MENU  CHOICE 

CALLED  3Y :  DOxDATA 

CALLS:  IOxPRET 


AUTHOR : 

ERIC  L.  STROBEL 

DATE: 

10/09/36 

VERSION: 

1.0 

REVISED: 

10/09/36  —  VI. 0. 

Initial  revision. 

USES:  N  NUMBER  DENOTING  WHICH  MENU  RESOURCE 

TO  USE 

TO  PRESENT  THE  USER  WITH  A  MENU  AND  THEN  SEND  THE  USER'S 

CHOICE  BACK.  (It  should  be  noted  that  this  routine 
was  written  before  adoption  of  the  variable  naming 
convention.  Cue  to  the  short  length  of  the  routine 
it  has  never  seemed  vorth  the  change.) 

RETURNS:  CHOICE  THE  MENU  CHOICE  THAT  WAS  MADE 


INTEGER  N,  CHOICE,  ITEMS,  Q 
REAL *8  DUMMY 

CHARACTER *10  FILES (10)  ,  FILNAM,  KDUMMY 
CHARACTER *40  TITLE,  ITEMLIST ( 10 )  ,  PROMPT 
CHARACTER *1  CH 
C 

C - 

c 

C  Read  the  menu  resource  from  a  file  set.  The  scheme  for 

C  maintaining  menus  goes  as  follows...  The  file  MASTER. HEN 

C  contains  a  list  of  the  names  of  the  menu  files,  in  tr.e 

C  order  by  which  they  are  numbered  in  DOxDATA.  The  indivi- 
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1034 

C 

1085 

C 

1086 

c 

1087 

c 

1088 

c 

1089 

c 

1090 

c 

1091 

c 

1092 

c 

1093 

c 

1094 

c 

1095 

c 

1096 

c  - 

1097 

1098 

1099 

c 

1100 

1101 

1102 

1103 

1104 

200 

1105 

1106 

300 

1107 

1108 

400 

1109 

1110 

500 

1111 

c 

1112 

c  - 

1113 

c 

1114 

c 

1115 

c 

1116 

c  - 

1117 

c 

1113 

550 

1119 

1120 

600 

1121 

1122 

700 

1123 

800 

1124 

C 

1125 

C  — 

1126 

C 

1127 

c 

1128 

c 

1129 

c  — 

1130 

1131 

c 

1132 

1133 

900 

dual  menu  files  have  the  following  format: 

#  of  items,  MENU  TITLE 

Text 

of 

each 

item 

(line-by-line,  one  line  per  item) 

Prompt  text 

The  existing  menu  files  should  be  consulted  as  examples. 


OPEN (20,  FILE* ' MASTER . MEN ' ,  STATUS* ' OLD ' ) 
READ ( 20 , 200 )  (FILES(I),  1=1,10) 

FORMAT (A1Q) 

CLOSE (20) 

FILNAM  *  FILES !N) 

OPEN (21,  FILE*FILNAM ,  STATUS* 1  OLD ' ) 

READ (21, 300)  ITEMS,  TITLE 
FORMAT ( 14, A40) 

READ (21,400)  ( ITEMLIST ( J ) ,  J=l,  ITEMS) 

FORMAT (A40) 

READ (21, 500)  PROMPT 
FORMAT (A40) 

CLOSE (21) 


Display  the  menu's  list  of  items. 


WRITE (6, 600) 

FORMAT (/////////////////////////////////////////////) 

WRITE (6, 700)  TITLE 
FORMAT (20X, A40 , //) 

WRITE ( 6 , 800 )  ( ITEMLIST ( J) ,  J=l,  ITEMS) 

FORMAT ( 5X , A40 ,/ ) 


Get  the  user's  response  and  check  it. 


CHOICE  *  0 

CALL  KEYBRD ( PROMPT . 1 , Q , CHOICE , DUMMY . KDUMMY ) 
IF  (Q.LT.l)  GO  TO  900 
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1134  IF  (CHOICE.LT. 1 .OR. CHOICE. GT. ITEMS)  THEN 

1135  PRINT  INVALID  CHOICE.’ 

1136  GO  TO  550 

1137  END  IF 

1138  CALL  IOxPRET ( CH ) 

1139  IF  (CH.EQ.’A1)  GO  TO  550 

1140  RETURN 

1141  END 

IOXMENU  Local  Symbols 

Name  Class  Type  Size 

CHOICE . param 

N . param 

TITLE . local  CHAR-40  40 

ITEMS  .  local  INTEGER- 4  4 

I  .  local  INTEGER* 4  4 

J . '.  .  local  INTEGER-4  4 

CH . local  CHAR-1  1 

DUMMY  .  local  REAL -8  8 

Q  .  local  INTEGER- 4  4 

KDUMMY . local  CHAR- 10  10 

PROMPT . local  CHAR-40  40 

ITEMLIST . local  CHAR'*  40  400 

FILES . local  CHAR-10  100 

FILNAM . local  CHAR- 10  10 
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1143  SUBROUTINE  IOxPRET(XXX) 

1144  C 

1145  C - 

1146  C 

1147  C  IOxPRET  --  SUBROUTINE  TO  PROMPT  THE  USER  TO  PRESS  RETURN  TO 

1148  C  CONTINUE.  AND  THEN  CLEAR  THE  SCREEN 

1149  C 

1150  C  CALLED  3Y:  MAIN.  IOxMENU 

1151  C 

1152  C  CALLS:  KEY3RD 

1153  C 

1154  C - 

1155  C 

1156  C  AUTHOR:  ERIC  L.  STROBEL 

1157  C 

1158  C  DATE:  09/01/37 

1159  C 

1160  C  VERSION:  2.0 

1161  C 

1162  C - 

1163  C 

1164  C  REVISED:  10/09/36  —  VI . 0 .  Initial  revision. 

1165  C 

1166  C  09/01/87  —  V2.0.  Uses  KEYBRD  and  accepts 

1167  C  a  period  as  a  response  (for  VAX  batching 

1168  C 

1169  C - - - 

1170  C 

1171  C  This  routine  displays  a  'Press  RETURN  to  continue.’  p ror. 

1172  C  Upon  receiving  a  RETURN,  the  screen  is  cleared.  Afte 

1173  C  two  botched  attempts,  if  the  user  types  something  out 

1174  C  of  the  ordinary,  the  routine  gently  reminds  the  user 

1175  C  stick  to  typing  RETURN.  IMPORTANT  FEATURES:  1)  The 

1176  C  user  may  abort  by  typing  'A'  (for  abort)  in  response 

1177  C  the  ’Press  prompt.  This  provides  a  mechanism  to 

1178  C  allow  the  user  to  have  a  chance  to  avoid  doing  someon 

1179  C  irrevocable  if  the  choice  was  made  by  mistake.  2)  In 

1180  C  an  effort  to  allow  the  program  to  be  run  under  VMS  in 

1181  C  batch  mode,  a  response  of  &  RETURN  has  the  same  e 

1182  C  as  just  typing  RETURN.  For  whatever  reason,  a  VMS  ba 

1183  C  file  cannot  contain  a  blank  line. 

1184  C 

1185  C  Please  note  that  this  routine  was  largely  written  before  the 

1186  C  adoption  of  the  variable  naming  convention  used  througnout 

1187  C  most  of  the  rest  of  the  program.  This  routine  is  brief 

1188  C  enough  that  it  has  proven  so  far  unnecessary  to  change  it. 

1189  C 

1190  C - - 

1191  C 

1192  CHARACTER *40  PRMT 
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Line#  Source  Line 


1193  CHARACTER* 10  CHTMP 

1194  CHARACTER *1  XXX 

1195  INTEGER  YYY ,  222 .  ITMP .  I TYPE 

1196  REAL  *  3  DTMP 

1197  XXX  =  *  * 

1198  50  PRMT  =  '  Press  RETURN  co  continue.  ' 

1199  CALL  KEY3RD< PRMT. 3. YYY. ITMP, DTMP. XXX) 

1200  I?  ( ’YYY .  LT  .  1 .  OR  .  XXX .  EQ .  ’  A '  .  OR  .  XXX .  EQ  .  '  .  '  )  THEN 

1201  WRITE (6.300) 

1202  300  FORMAT  U  ///////  i  ■'////'  ////>//////////  /  //////////,  >  ,  / 

1203  RETURN 

1204  ELSE 

1205  222  =222+1 

1206  I?  (222. GT. 2!  PRINT  HIT  RETURN  ONLY  TO  CONTINUE. 

1207  GO  TO  50 

1208  ENDIF 

1209  RETURN 

1210  END 

IOXPRET  Local  Symbols 

Name  Class  Type  Size 

XXX . param 

PRMT . local  CHAR*  40  40 

YYY  .  local  INTEGER *4  4 

222  .  local  INTEGER* 4  4 

DTMP .  local  REAL* 8  3 

ITMP .  local  INTEGER *4  4 
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1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 
1221 
1222 

1223 

1224 

1225 

4  •"<  C 
±  4  *  D 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 
1261 


SUBROUTINE  KEYBRD ( P STR , ITYP , LN . IVAR . FVAR . CVAR ) 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


KEYBRD  —  SUBROUTINE 
PARSE  IT. 

CALLED  BY:  MAIN, 

TO  TAKE  KEYBRD  INPUT  INTELLIGENTLY  AND 

DOxDATA ,  IOxPRET 

AUTHOR : 

ERIC  L.  STROBEL 

DATE: 

39/01/87 

VERSION: 

1.0 

REVISED: 

09/01/87  —  VI . 0 .  Initial  revision. 

USES:  PSTR  The  prompt  string. 

ITYP  The  type  of  answer  expected  to  ' 

returned.  1  -  INT,  2  =  FLOAT. 

3  *  CHAR. 


To  present  the  user  with  a  prompt  and  to  discern  what 

sort  of  response  is  expected.  This  routine  attempts 
to  be  somewhat  intelligent  about  parsing  the  typed 
response.  Real  values  entered  without  a  decimal 
point  are  actually  read  correctly,  and  strings  are 
converted  to  all  CAPS  so  that  the  response  typed  ir. 
appears  to  be  case  insensitive.  This  is  a  modifies-, 
of  a  routine  authored  by  Frank  Rhoads.  Please  note 
comment  block  below  refering  to  where  changes  need  t 
be  made  in  converting  from  system  to  system. 


RETURNS :  LN 

IVAR 

FVAR 

CVAR 


The  number  of  characters  typed  : 
the  keyboard. 

The  integer  value  to  be  passed. 
The  floating  value  to  be  passed 
The  character  string  to  be  pass 
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1262  C 

1263  C - 

1264  C 

1265  CHARACTER- (-)CVAR.  ?STR 

1266  CHARACTER-20  CVR 

1267  CHARACTER- 8  IFMT 

1263  CHARACTER-1  BYTS(20) 

1269  EQUIVALENCE ( BYTS , CVR) 

1270  INTEGER-4  IVAR , LN 

1271  REAL -8  FVAR 

1272  CVR- ' 

1273  9  LN=0 

1274  C 

1275  C  - 

1276  C  Display  che  appropriate  prompt,  including  a  default  value. 

1277  C 

1273  C  This  is  also  where  che  changes  must  be  made  in  translating 

1279  C  from  system  to  system.  In  the  three  WRITES  below,  the 

1280  C  formatting  ends  with  ...  "  ,2H):"  and  then  whatever  is 

1281  C  the  appropriate  thing  to  suppress  the  return  to  the 

1282  C  beginning  of  the  next  line.  On  the  VAX  (VMS)  this  is 

1283  C  With  Microsoft  Fortran  (DOS)  it  is  and  with 

1284  C  RyanMcFarland  Fortran  (DOS)  it  is  nothing  at  all. 

1285  C  - 

1286  C 

1237  IF  (ITYP.EQ.l)  THEN 

1238  WRITE ( 6 , ' ( IX, A40 , 1H(, 14, 2H) :,.)')  PSTR,  IVAR 

1289  ELSE  IF  (ITYP.EQ.2)  THEN 

1290  WRITE ( 6 , ' ( IX , A40 , 1H ( . G20 . 9 , 2H i : , \ ) ' )  PSTR,  FVAR 

1291  ELSE 

1292  WRITE  ( 6  ,  ’  ( IX ,  A40 , 1H  (  ,  A10 , 2H )  :  ,  \ )  '  ,'  PSTR.  CVAR 

1293  END IF 

1294  C 

1295  C  Get  the  user’s  response  as  a  character  string. 

1296  C 

1297  READ ( 5 , ' (A20)  * ) CVR 

1298  C 

1299  C  Find  the  length  of  the  response. 

1300  C 

1301  DO  10  1-1,20 

1302  L-21-I 

1303  IF  ( BYTS  ( L )  .  NE  .  '  '  )  GO-  TO  11 

1304  10  CONTINUE 

1305  L-0 

1306  11  LN-L 

1307  C 

1308  C  No  response,  so  Return  key  must  have  been  typed. 

1309  C 

1310  IF (LN.EQ.0) RETURN 

1311  CVAR-CVR 
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1312  IF ( ITYP . LT . 3 ) THEN 

1313  C 

1314  C  If  the  expected  answer  is  a  numeric  type,  then  read  it 

1315  C  from  the  internal  string. 

1316  C 

1317  IF ( ITYP. EQ.l) THEN 

1318  WRITS (IFMT. ' ( 2H ( I , 12 , 1H) ) * ) LN 

1319  READ (CVR, IFMT, ERR= 12) IVAR 

1320  ELSE 

1321  WRITE (IFMT- 1 ( 2H ( F . 12 . 3H . 0 > ) ' ) LN 

1322  READ (CVR, IFMT, £RR=12)FVAR 

1323  END  IF 

1324  ELSE 

1325  C 

1326  C  For  a  character  string  answer,  convert  to  ail  caps. 

132"  C 

1323  20  DO  21  ICI-l.LN 

1329  K-Ichar (BYTS(ICI) ) 

1330  If (k.GE. 96) THEN 

1331  K*K-32 

1332  CVAR ( ICI : ICI ) =Char (K) 

1333  ELSE 

1334  CVAR ( ICI : ICI )»BYTS( ICI) 

1335  ENDIF 

1336  21  CONTINUE 

1337  ENDIF 

1338  RETURN 

1339  12  WRITE ( 6 , ' ( 37H  Conversion  ERROR,  Please  RETRY  Input) ' i 

1340  GO  TO  9 

1341  100  RETURN 

1342  END 

KEYBRD  Local  Symbols 

Name  Class  Type  Size 

CVAR . param 

FVAR . param 

IVAR . param 

LN . param 

ITYP . param 

PSTR . param 

I . local  INTEGER*  4  4 

K  .  local  INTEGER* 4  4 

L . local  INTEGER*  4  4 

ICI . local  INTEGER  *  4  4 

CVR . local  CHAR  *  20  20 

IFMT . local  CHAR  *  8  8 

BYTS . local  CHAR«1  20 
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Global  Symbols 


Name 

Class 

Type 

Size 

DOXDATA  .  . 

FSUBRT 

*  *  * 

X  X  X 

IOXMENU  .  . 

FSUBRT 

*  *  * 

«  *  * 

IOXPRET  .  . 

FSUBRT 

*  *  * 

XXX 

KEYBRD .  .  . 

FSUBRT 

X  x  x 

XXX 

MAINDAT  .  . 

common 

*  *  * 

36596 

RAYSUB .  .  . 

extern 

•  *  it 

XXX 

RESULTS  .  . 

common 

X  X  X 

1320 

main.  .  .  . 

.  .  . 

FSUBRT 

*  *  * 

X  X  X 

Code  size  = 

56db 

(22235) 

Data  size  = 

OalS 

(2532) 
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2  C 

3  C 

4  C 

5  C 

6  C 

7  C 

8  C 

9  C 

10  c 

11  c 

12  C 

13  C 

14  C 

15  C 

16  C 

17  C 

18  C 

19  C 

20  C 

21  C 

22  C 

23  C 

24  C 

25  C 

26  C 

27  C 

28  C 

29  C 

30  C 

31  C 

32  C 

33  C 

34  C 

35  C 

36  C 

37  C 

38  C 

39  C 

40  C 

41  C 

42  C 

43  C 

44  C 

45  C 

46  C 

47  C 

48  C 

49  C 

50  C 


SUBROUTINE  RAYSUB ( RVxAZI ,  RVxELEV) 


RAYSUB  —  3D  RAYTRACING  WITH  ACCELERATED  FREE  SPACE 
PROPAGATION  CALCULATION 

CALLED  3Y :  MAIN 

CALLS:  Almost  everything  else,  as  this  is  really 

the  core  of  the  program. 


AUTHORS:  MICHAEL  H.  REILLY  &  ERIC  L.  STROBEL 

DATE:  03/18/33 

VERSION:  4.3 


REVISED:  07/25/36  --  Initial  revision.  Translated 

from  Tektronix  Basic  to  VAX  Fortran  by 
Eric  L.  Strobel. 

07/30/86  —  VI. 1.  Change  over  to  use  of 
REAL  *  8  precision  in  the  calculations. 

08/12/86  —  V2.0.  Add  the  capability  to 
perform  propagation  loss  calculations. 

Also  greatly  massaged  over  the  output. 

A  number  of  minor  and  MAJOR  bugs  corrected. 

09/05/86  --  V2 . 3 .  Add  horizon  focusing  ana 
handle  low  angle  rays.  Record  data  for 
proper  handling  of  skip  focusing.  Record 
maximum  height.  Calculate  deviation  from 
great  circle  path.  Minor  bug  fixes. 

09/17/86  —  V2 . 4 .  Fix  calculation  of  great 
circle  path  deviation.  Introduce  cutoff  in 
number  of  bounces.  Automagically  obtain 
approximate  bottom  of  the  ionosphere,  elim¬ 
inating  the  need  for  the  prompt.  Also  fixed 
rotation  matrix  used  in  calculating  the  new 
c-values . 

10/10/86  --  V3.0.  Former  program,  now  demoted 
to  a  subroutine.  Appropriate  changes  made. 
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51  C 

52  C 

53  C 

54  C 

55  C 

56  C 

57  C 
53  C 

59  C 

60  C 

61  C 

62  C 

63  C 

64  C 

65  C 

66  C 

67  C 

68  C 

69  C 

70  C 

71  C 

72  C 

73  C 

74  C 

75  C 

76  C 

77  C 
73  C 

79  C 

80  C 

81  C 

82  C 

83  C 

84  C 

85  C 

86  C 

87  C 
83  C 

89  C 

90  C 

91  C 

92  C 

93  C 

94  C 

95  C 

96  C 

97  C 

98  C 

99  C 
100  C 


Duties  performed  by  subroutine  GEC  now  done 
elsewhere.  Portion  of  IONOPAR  that  searches 
for  triangles  of  points  now  streamlined  so 
that  the  search  won’t  outlast  the  Earthl 

09/01/87  —  V4.0.  The  essentials  have  been 
listed  in  the  comment  block  at  the  beginning 
of  MAIN  (RAYTRA4 . FOR) ,  so  you  can  read  about 
the  changes  there. 

09/30/87  --  V4.1.  Phase  path  calcs,  added. 

01/15/33  —  V4.2.  The  (incorrect)  derivative 
values  are  no  longer  reported.  One  of  the  rays 
in  the  bundle  has  been  deleted,  for  speed's  sake. 

The  range  cutoff  has  been  tweaked  so  that  it  will 
occur  nearly  exactly,  not  just  at  the  end  of  the 
next  increment.  Some  of  the  other  changes  have 
been  discussed  in  the  comment  block  at  the 
beginning  of  MAIN  ( RAYTRA4 . FOR) . 

03/18/88  —  V 4 . 3 .  Corrections  made  for  angular  range, 
(see  comment  block  at  beginning  of  MAIN)  In  the  main 
body  of  this  routine,  the  azimuth  is  the  running 
value  from  the  launch  point  to  the  previous  raypoint. 
The  C's  are  now  normalized  at  every  step,  which  should 
enhance  the  accuracy.  Sene  other  minor  tweaking. 


USES:  RVxAZI  Ray  launen  azimuth 

RVxELEV  Ray  launch  elevation 

/MAINDAT/  A  common  block  the  ionospheric 

and  user  data  that  was  read  in 
the  previous  routines. 

To  perform  3-D  raytracing  of  radio  propaga¬ 
tion  through  the  ionosphere.  Incorporates  a  spec¬ 
ific  model  for  true  height  profiles  of  electron 
density.  Does  propagation  loss  due  to  focusing  and 
to  reflection  from  the  ground.  Doesn't  (yet)  incorporate 
magnetic  field  effects,  or  deviative  absorption  effects. 

RETURNS:  RVxBOUN  The  array  of  results  at  the 

earth  impact  and  ray  end  points. 
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Line#  Source  Line 


101 

102 

103 

104 

105 

106 

107  C 

108 

109  C 

110 
111 
112 

113 

114 

115 

116 
117 
113 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136  C 

137  C 

138  C 

139  C 

140  C 

141  C 

142  C 

143  C 

144  C 

145  C 

146  C 

147  C 

148  C 

149  C 

150  C 


INTEGER  IVxPARAM ( 6 ! .  IVxLAUN ( 3 ) 

INTEGER  IFxBUN,  IVxSSNUM,  IVxTIME ( 5 ) ,  IVxNBOU,  IFxGRND 
INTEGER  IVxSCSING.  IVxSCTRIl ,  IVxSCTRI2.  IVxSCTRI3 
INTEGER  ICxNSCP,  IVxJ ,  IVxSX,  IVxSY,  IVxSZ ,  IFxN4 ,  IFxGEN 
INTEGER  IVxNBL ,  IFxSFL.  ITxK.  IFxEND 
INTEGER  IFxPPF ,  IFxCASE,  IFxCCAL 

LOGICAL  LVxRCUT.  LVxHCUT.  LVxSND 

REAL *3  RVxGRID ( 6 )  ,  RVxIONPT ( 30 , 60 , 6 i ,  RVxLAUN<7) 

REAL *8  RVxOPTION ( 7 ) ,  RVxLA .  RVxLO,  RVxDD6 

REAL  *  8  RVxBNDL (4.3.11)  ,  RVxBOUN ( 11 , 15 )  .  RVxELEVO 

REAL'S  RVxAZIO .  RVxYEAR,  RVxAlOO,  RVxTIM 

REAL  *  8  RPxPI , RPxDTOR , RPxREARTH . RVxLATSC ( 1800 )  , RVxLONSC  .  1300 ' 
REAL  *  8  RVxFNSQ (1300.3)  ,  RVxH ( 1300 , 3 )  ,  RVxSEZGEC ( 3 , 3 ) 

REAL *8  RVxFMSB ( 3 ) ,  RVxHB ( 3 ) .  RVxCOFMAT (2.2) ,  RVxLATO 
REAL *8  RVxLONO ,  RVxHBOT ,  RVxRALIM,  RVxANGLIM.  RVxFREQ 
REAL* 8  RVxFSQU,  RVxELEV,  RVxAZI,  RVxRPI,  RVxCX,  RVxCY 
REAL ” 8  RVxCZ ,  RVxSINEL,  RVxXI ,  RVxYI ,  RVxZI,  RVxHO ,  RVxH5 
REAL* 8  RVxGPLTOT ,  RVxDDSZl,  RTxDZCALC ,  RVxDELZ ,  RVxHZ 
REAL *8  RVxXF ,  RVxYF ,  RVxZF,  RTxS4,  RVxGPLINC.  RVxDDXHB 
REAL  *  8  RVxDOYHB .  RVxUDXDS ,  RVxUDYDS 

REAL*  8  RVxCJDZDS.  RVxOXDZ,  RVxDYDZ .  RVxXGRAD ,  RVxYGRAD 

REAL *8  RVxDET ,  RTxPl,  RTxP2,  RTxP3,  RVxALPHA 

REAL *8  RVxBETA.  RVxETAl ,  RVxETA2 ,  RVxLATI ,  RVxLONI 

REAL-8  RVxLATI,  RVxLONI,  RVxX7 ,  RVxY7 ,  RVxZ7 

REAL* 8  RVxRl ,  RVxR2,  RVxB5(3),  RV>:B6(3),  RVxA5(3),  RVxAb  i  3  < 

REAL  *  3  RVxES ( 3 )  ,  RVxE6 ( 3 )  ,  RVxVl ,  RVxV2 

REAL* 8  RVxLOSA ,  RVxLOSR,  RVxLOSX,  RVxLOSG 

REAL *8  RVxDR ,  RVxD2R.  RVxDEV,  RVxCSUM 

REAL *8  RVxHCUT ,  RPxHTOP ,  RVxHMIN,  RTxTEMP 

REAL* 8  RVxXX ,  RVxHBND ,  RVxPPL,  RVxPPI,  RVxMU ,  RVxMU2 

REAL *8  RVxF40,  RVxF65,  RVxKl ,  RVxHL ,  RVxCOSEL 

REAL *8  RVxRTMP ,  RVxRMAX ,  RVxDELR ,  RVxDELR2 

REAL *8  RTxAINC ,  RTxRTl 


NOTE:  IVxTIME ( 1 )  =  YEAR;  IVxTIME (2)  =  MONTH 
IVxTIME (3)  *  DAY;  IVxTIME (4)  =  HOUR 
IVxTIME (5)  =  MINUTE 

RVxBNDL  *  RVxBNDL <  RAY  1 , 2 , 3 , OR  4;  1-LAT, 2-LOM . i-ALT • 
#  OF  BOUNCES) 

RVxBOUN  *  RVxBOUN (N-TH  30UNCE ;  P ARAMS ) , 

? ARAMS--  1  ->  LAT 

2  ->  DON 

3  - >  GROUP  PATH  LENGTH 

4  ->  ANGULAR  RANGE 
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151 

C 

5  -> 

DB  DOWN 

152 

c 

6  -> 

DEVIATION  FROM  GR . 

CIRCLE  PATH 

153 

c 

7  -> 

UNUSED 

154 

c 

8  -> 

UNUSED 

155 

c 

9  -> 

HEIGHT  OF  THE  DATA 

POINT 

156 

c 

10  -> 

PHASE  PATH  LENGTH 

157 

c 

11  -> 

X  DIRECTION  COSINE 

OF  RAY 

158 

c 

12  -> 

Y  DIRECTION  COSINE 

OF  RAY 

159 

c 

13  -> 

Z  DIRECTION  COSINE 

OF  RAY 

160 

c 

** 

ill 

1 

V 

RESERVED  FOR  FUTURE 

USE 

161 

162 

163 

164 

165 

166 
167 
163 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 
130 
181 
182 

183 

184 

185 
136 
187 
138 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 


C 

c- 

c 


COMMON  /MAINDAT/  RVxGRID .  RVxIONPT,  IVxPARAM,  IVxLAUN 
,  RVxLAUN  , RVxOPTIQN 

COMMON  /RESULTS/  RVxBOUN 

COMMON  /LPARM/  IVxSSNUM , IVxTIME , RVxYEAR , RVxAlOO , IFxGRND 
.  RVxTIM 

COMMON  /LOSSES/  RVxLOSA.  RVxLOSR,  RVxLOSX,  RVxLOSG 
COMMON  /PRAM/  RPxPI.  RPxDTOR ,  RPxREARTH ,  RPxHTOP 
COMMON  /SCPS1/  ICxNSCP,  RVxLATSC .  RVxLONSC 
COMMON  / SCPS1A/  RVxFNSQ , RVxH 

COMMON  /OTHER/  RVxLATl . RVxLONl , RVxHBOT , RVxFSQU , RVxRPI , RVxHCUT 
COMMON  /MISC/  RVxSEZGEC , RVxX7 , RVxY7 , RVxZ7 , RVxRl , RVxR2 , RVxHMI'J 
COMMON  /START/  RVxXI .  RVxYI .  RVxZI,  RVxLATl ,  RVxLONl 
COMMON  /END/  RVxXF ,  RVxYF ,  RVxZF.  RVxH5 

COMMON  / IONOl /  RVxALPHA .  RVxBETA. RVxETAl , RVxETA2 , RVxFNSB . RVxH3 
COMMON  / I0N02/  RVxA5 ,  RVxA6 ,  RVxB5,  RVxB6 ,  RVxES ,  RVxE6 
COMMON  / I0N03/  RVxVl . RVxV2 , RVxXX . DFxCASE ,  RVxHBND 
COMMON  /MORE/  IVxSX,  IVxSY,  IVxSZ,  RVxCX,  RVxCY ,  RVxCZ 
COMMON  /TEMPI/  RVxF40 .  RVXF65,  RVxKl .  RVxHL 
COMMON  /GORP/  RVxDD6 ,  RVxANGLIM 


C 

C 

C 


Initialize  things 


9000 


DO  9000  1*1,5 
IVxTIME ( I ) 
CONTINUE 
RPXPI  *  3 
RPxDTOR  * 


IVxPARAM ( 1+1) 


C 

C 

c 

c 


.  1415926  54D00 
0.0174532925DOO 
RPxREARTH  =  6571. 2D00 
RPxHTOP  *  2000. 0D00 
RVxHMIN  *  RVxLAUN (7) 

ITxK  *  0 

Initialize  some  things  that  are  specific  to  the  RADAR -v, 
model . 

RVxHBOT  *  40.0D00 
RVXF40  *  4 . 03D-04 
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201 

202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 
215 
217 
213 

219 

220 
221 
222 

223 

224 

225 

226 
227 
223 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 


RVxKl  a  0.12D00 

RVxF65  »  RVxF 40 * DEXP ( 2 5 . QDGQ  «  RVxKl) 

RVxHL  »  120.48384357 
C 

C  Begin  input  section,  i.e.  break  out  the  arrays  that  will 
C  be  needed  from  the  large  array. 

C 

10000  ICxNSCP  =  IDNINT ( RVxGRID ( 5 ) *  RVxGRID ( 6 )  ) 

DO  10200  1*1,  RVxGRID (5) 

RVxLA  =  RVxGRID (3!  ♦  (I-l) 'RVxGRID(l) 

DO  10100  J  =  1,  RVxGRID ( 6 ) 

RVxLO  =  RVxGRID (4)  +  ( J- 1 )» RVxGRID ( 2 ) 

ITxK  a  ITxK  +  1 

RVxLATSC ( ITxK)  =  RVxLA 

RVxLONSC ( ITxK)  =  RVxLO 

RVxFNSQ ( ITxK . 1 )  =  RVxIONPT ( I , J , 1 ) 

RVxFNSQ i ITxK . 2 )  =  RVxIONPT ( I , J , 3 ) 

RVxFNSQ (ITxK, 3)  =  RVxIONPT ( I , J . 6 ) 

RVxH ( ITxK , 1 )  =  RVxIONPT ( I , J , 2 ) 

RVxH ( ITxK , 2 )  =  RVxIONPT ( I , J , 5 ) 

RVxH ( ITxK , 3  >  *  RVxIONPT ( I, J, 4) 

RVxLATSC ( ITxK)  =  RVxLATSC ( ITxK)  *  RPxDTOR 
RVxLONSC (ITxK)  =  RVxLONSC ( ITxK )  •  RPxDTOR 
10100  CONTINUE 

10200  CONTINUE 
C 

C  More  initializing. 

C 

RVxLATO  =  RVxLAUN ( 1 ! 

RVxLONO  a  RVxLAUN (2) 

RVxLATO  a  RVxLATO  »  RPxDTOR 
RVxLONO  a  RVxLONO  *  RPxDTOR 
RVxRALIM  =  RVxLAUN (3) 

RVxANGLIM  a  RVxRALIM/ RPxREARTH 
RTxS4  »  0.0D00 
IVxSSNUM  »  IVxPARAM ( 1 ) 

IFxGRND  »  IVxLAUN ( 3 ) 

IFxPPF  a  1 
IVxNBL  a  IVxLAUN ( 1 ) 

IP  < IVxNBL. GT. 10)  IVxNBL  =  10 
IP  ( IVxNBL . LT . 0 )  IVxNBL  =  0 
IPxSFL  »  IVxLAUN (2) 

RVxFREQ  »  RVxLAUN (5) 

RVxFSQU  =  RVxFREQ  «  RVxFREQ 
RVxRPI  a  RVxLAUN ( 4 ) 

RVxHCUT  a  RVxLAUN ( 7  > 

IF  ( RVxELEV . EQ . 0 . 0D00 )  RVxELEV  =  0.01D00 
C 

C  BEGIN  CALCULATIONAL  SECTION 
C 
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Source 

Line 

251 

20000 

RVxELEV  *  RVxELEV  »  RPxDTOR 

252 

RVxAZI  =  RVXAZI  *  RPxDTOR 

253 

RVxELEVO  *  RVxELEV 

254 

RVxAZIO  =  RVxAZI 

255 

IVxJ  =  0 

256 

IFxCCAL  =  0 

257 

RVxOD6  =  RVxRPI 

258 

RVxLOSR  =  0.0D00 

259 

RVxLOSG  =  0.0D00 

260 

RVxLOSA  *  0.0D00 

261 

20020 

IFxBUN  »  3 

262 

IF  (IFxSFL.EQ. 1)  IFxBUN  =  0 

263 

C 

264 

c 

Determine  the  elevation  4  azimuth  for  each  ray  in  the  bundle. 

265 

c 

266 

RTXAINC  »  0 . 00125D00  *  RPxDTOR 

267 

20050 

IF  ( IFxBUN. EQ. 3)  THEN 

263 

RVxAZI  *  RVxAZIO  +  RTxAINC 

269 

RVxELEV  =  RVxELEVO  +  RTxAINC 

270 

ELSE  IF  ( IFxBUN. EQ. 2)  THEN 

271 

RVxAZI  =  RVxAZIO  +  RTXAINC 

272 

RVxELEV  a  RVxELEVO  -  RTxAINC 

273 

ELSE  IF  ( IFxBUN. EQ. 1)  THEN 

274 

RVxAZI  »  RVxAZIO  -  RTxAINC 

275 

RVxELEV  »  RVxELEVO  -  RTxAINC 

276 

ELSE 

277 

RVxELEV  =  RVxELEVO 

278 

RVxAZI  a  RVxAZIO 

279 

END  IF 

280 

C 

281 

C 

Still  more  initializing. 

282 

c 

283 

IVxNBOU  =  0 

234 

IVxJ  a  0 

285 

RVxLATl  »  RVxLATO 

286 

RVxLONl  *  RVxLONO 

287 

RVxHO  *  RVxLAUN ( 6 ) 

238 

RVxXI  »  O.ODOO 

289 

RVxYI  »  O.ODOO 

290 

RVxZI  «  RVxHO 

291 

IVxSZ  a  INTSIGN(DSIN (RVxELEV) ; 

292 

RVXH5  a  RVxHO 

293 

RTxTEMP  »  O.ODOO 

294 

c 

295 

c 

Do  the  initial  coordinate  setup  and  transformations. 

296 

c 

297 

CALL  ROTSEZ 

298 

CALL  LATLON3 

299 

IFXN4  »  l 

300 

IFxGEN  =  1 
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Source 

Line 

301 

c 

302 

c 

Get  the  initial  values  for  the  ionospheric  parameters 

303 

c 

and  (if  any)  gradients. 

304 

c 

- 

305 

CALL  IONOPAR ( IVxJ ,  IFxN4,  IFxGEN ,  IVxSCSING.  IVxSCTRIi 

306 

* 

IVXSCTRI2,  IVXSCTRI3) 

307 

RVXMU2  *  l.ODOO  -  RVxXX/RVxFSQU 

308 

IF  (RVxMU2.LT. O.ODOO)  THEN 

• 

309 

PRINT  * ,  '  RAY  DOES  NOT  PROPAGATE ' 

310 

STOP 

311 

END  IF 

312 

RVxCOSEL  =  DCOS ! RVxELEV ) 

313 

RVxSINEL  *  DS IN (RVxELEV! 

314 

RVxMU  *  DSQRT ! RVxMUZ ) 

315 

RVxCX  *  -RVxMU  *  RVxCOSEL  *  DCOS(RVxAZI) 

316 

IVxSX  =  INTSIGNI RVxCX) 

317 

RVxCY  *  RVxMU  »  RVxCOSEL  *  DSIN(RVxAZI) 

318 

IVxSY  *  INTSIGNI RVxCY) 

319 

RVxCZ  *  RVxMU  «  RVxSINEL 

320 

IVxSZ  »  INTSIGNI RVxCZ) 

321 

RVxCX  *  RVxCX  «  RVxCX 

322 

RVxCY  =  RVxCY  *  RVxCY 

222. 

RVxCZ  *  RVxCZ  *  RVxCZ 

324 

RVxPPL  »  O.ODOO 

325 

RVxGPLTOT  a  O.ODOO 

326 

IVxIII  »  0 

327 

c 

328 

LVxEND  *  .FALSE. 

329 

LVxHCUT  »  .FALSE. 

330 

LVxRCUT  =  .FALSE. 

331 

c 

332 

c 

Begin  the  ray  increment  by  estimating  the  z  increment 

333 

c 

for  the  upcoming  raypath  increment. 

334 

c 

335 

20106 

RVxDDSZl  »  IVxSZ  *  DSQRT (  RVxCZ  /  (RVxCX  +  RVxCY  *  RVxCZ)  ' 

336 

IF  ( RVxALPHA . NE . O.ODOO. AND. RVxBETA.NE. O.ODOO)  THEN 

337 

C 

338 

C 

In  this  case,  the  index  of  refraction  is  quadratic  in  sc 

339 

C 

an  additional  correction  is  appropriate. 

340 

C 

341 

RTxDZCALC  »  (RVxDDSZl  -  RVxSINEL)  /  RVxDD6 

342 

ELSE 

343 

RTXDZCALC  »  0.0D00 

344 

ENDIF 

345 

RVxDELZ  *  IVxSZ  *  RVxRPI  *  (RVxDDSZl  +  RTxDZCALC «RVxR?Z,  Z  .  I Z  :  * 

346 

RVxDELZ  »  DABS (RVxDELZ) 

347 

C 

348 

c 

This  section  is  here  to  ensure  that  the  calculation  cuts  cff 

349 

c 

in  range  almost  exactly  when  it  is  supposed  to. 

350 

c 
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Line#  Source  Line 


351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 
363 

369 

370 

371 

372 

373 

374 

375 

376 

377 
373 

379 

380 

381 

382 

383 

384 

385 

386 
337 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 


RVxDELR  =  DSQRT ( RVxRPI ‘RVxRPI  -  RVxDELZ ‘RVxDELZ ) 

RVxRTMP  »  (RTXS4  *  RVxDELR/ ( RVxHO >RPxREARTH) )  *  RPxR EARTH 
RVxRMAX  »  RVxANGLIM  •  RPxREARTH 
IF  ( RVxRTMP . GE . RVxRMAX )  THEN 

RVxDELR2  =  RVxDELR  -  ( ( RVxRTMP -RVxRMAX ) * t RVxHO+RPxREARTH ) 
#/ RPxREARTH) 

RVxDELZ  =  RVxDELZ  «  RVxDELR2  /  RVxDELR 
END  IF 
C 

C  The  angle  of  ray  incidence  at  H  =  100  km.  This  is  used  in  the 

C  (currently  commented  out)  absorption  loss  calculation. 

C 

C  IF  v DABS ( RVxHZ  -  100 . 0D00 )  . LT .  ( RVxRPI/2 . ODOO )  )  RVxAlOO  = 

C  #DCO$ ( RVxDELZ/ RVxRP I i 
C 

RVxDELZ  =  DMAXli  RVxDELZ.  1.0D-04) 

IFxGEN  *  i 

RVxHZ  a  RVxHO  *  IVxSZ ‘RVxDELZ 
G 

C  Check  to  see  if  a  boundary  has  been  crossed. 

C 

IF  ( IVxSZ. LT.O)  THEN 

IF  ( RVxHZ. LT.RVxHBND)  THEN 

RVxDELZ  =  RVxHO  -  RVxHBND 
IFxGEN  *  2 
END  IF 

GO  TO  20133 
END  IF 

IF  ( RVxHZ . GT . RVxHBND )  THEN 

RVxDELZ  =  RVxHBND  -  RVxHO 
IFxGEN  a  2 
END  IF 
C 

20133  RVxHZ  »  RVxHO  +  IVxSZ ‘RVxDELZ 
C 

C  Use  the  z  increment  and  height  to  calculate  where  the 

C  ray  ends  up  at. 

C 

CALL  ENDPT( IFxGEN.  RVxHO,  RVxHZ,  RTxS4.  RVxGPLINCl 
RVxHZ  a  RVxHO  +  RVxZF 
RTxRTl  »  RPxREARTH  +  RVxHZ 

RVxH5  »  DSQRT  (RVxXF*RVxXF  *  RVxYF*RVxYF  -*•  RTxRTl ‘RTxRTl 

#-  RPxREARTH 

IF  (RVxHS. LT.O. ODOO)  RVxH5  =  0.0D00 
IF  ( RVxH5 . LT . RVxHMIN )  RVxHMIN  =  RVxH5 
C 

C  If  desired,  calculate  the  phase  path  increment.  The 

C  value  of  IFxPPF  is  currently  'hard-wired'  to  be  1. 

C 

IF  (IFxPPF. EQ.l)  CALL  PHSPL ( IFxGEN .  RVxPPI) 
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Line#  Source  Line 


401 

402 

403 

404  C 

405  C 

406  C 

407  C 
403 

409 

410 

411 

412 

413 

414  C 

415  C 

416  C 

417 
413 

419  C 

420  C 

421  C 

422 

423 

424 

425 

426 

427  C 

428  C 

429  C 

430  C 

431  C 

432  C 

433  C 

434  C 

435 

436 

437 

438 

439 

440 

441  C 

442  C 

443  C 

444  C 

445  C 

446 

447 

448 

449 

450 


IVxIII  *  IVXIII  +  1 
IFxCCAL  a  0 

IF  ( IFxGEN . NE . 6 . OR . RVxH5 . GT . RVxHBOT )  GO  TO  20150 

Will  be  FALSE  only  if  the  ray  is  below  the  bottom  of 
the  ionosphere  &  headed  downward. 

RVxZI  =  RVxHZ 
RVxXI  =  RVxXF 
RVxYI  =  RVxYF 
CALL  LATLON3 
CALL  NEWCS (IFxGEN) 

IFXCCAL  »  1 

SMALL  SECTION  TO  HANDLE  EARTH  30UNCE 

CALL  ANRANG ( RVxAZI . RVxLATI . RVxLONI , RVxLATO , RVxLONO . RTxS4 ) 
IVxNBOU  =  IVxNBOU  +  1 

Check  to  see  if  the  cutoff  in  the  number  of  bounces  is  met 

IF  ( IVxNBOU. GT.IVxNBL)  THEN 
IVxNBOU  »  IVxNBOU  -  1 
LVxEND  »  .TRUE. 

GO  TO  20150 
END  IF 


If  this  is  the  primary  ray  in  the  bundle,  then  all  of  t.-.e 
information  about  the  bounce  point  needs  to  be  recorded, 
otherwise  only  the  parts  that  will  be  needed  later  are 
stored. 


IF  (IFxBUN.EQ.O)  THEN 

RVxBOUN { IVxNBOU, 1)  =  RVxLATI 

RVxBOUN( IVxNBOU. 2)  =  RVxLONI 

RVxBOUN < IVxNBOU , 3 )  *  RVxGPLTOT  +  RVxGPLINC 

RVxBOUN < IVxNBOU , 4 )  *  RTxS4 

IF  (IFxSFL.NE. 1)  THEN 

TIMES  is  a  routine  which  calculates  some  quantities  for  t.-.e 
(currently  commented  out)  absorption  loss  calculation. 

CALL  TIMES (RVxBOUN,  IVxNBOU.  RVxLONO) 

CALL  LOSS ( RVxBOUN , RVxBNDL , IVxNBOU , RVxLATO , RVxLONO . 
#RVxELEV0 , IFxEND ) 

END  IF 

RVxBOUN ( IVxNBOU , 5 )  »  RVxLOSR  +  RVxLOSG 

CALL  GCDEV ( IVxNBOU . RVxAZIO . RVxLATO , RVxLONO , RVxBOUN , RVxD 
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Line#  Source  Line 


451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 
439 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 


RVxBOUN ( IVxNBOU , 6 )  =  RVxDEV 

RVxBOUN ( IVxNBOU , 9 !  *  RVxH5 

IF  (IFxPPF.SQ.l)  RVxBOUN (IVxNBOU, 10)  =  RVxPPL  ♦  RVxPPI 
RVxCSUM  =  RVxCX  +  RVxCY  +  RVxCZ 

RVxBOUN (IVxNBOU, 11)  *  IVxSX-DSQRT (RVxCX) /DSQRT ( RVxCSUM) 
RVxBOUN (IVxNBOU, 12)  =  IVxSY*DSQRT ( RVxCY) /DSQRT < RVxCSUM ) 
RVxBOUN (IVxNBOU, 13)  =  IVxSZ«DSQRT (RVxCZ ) /DSQRT ( RVxCSUM) 

ELSE 

RVxBNDL ( IFxBUN . 1, IVxNBOU)  =  RVxLATI 
RVxBNDLdFxBUN,  2,  IVxNBOU)  =  RVxLONI 
RVxBNDL ( IFxBUN, 3 . IVxNBOU)  =  RVxH5 
END  IF 
C 

C  END  EARTH  BOUNCE  HANDLING 
C 

C - 

C 

C  Accumulate  the  group  and  phase  path  lengths 
C 

20150  RVxGPLTOT  =  RVxGPLTOT  +  RVxGPLINC 

IF  (IFxPPF.EQ.l)  RVxPPL  =  RVxPPL  +  RVxPPI 
C 

C  TAKE  CARE  OF  BOUNDARY  CROSSING 
C 

C - 

C 

C  First  check  for  the  existence  of  a  boundary  crossing. 

C 

IF  ( IFxGEN . NE . 2 )  GO  TO  30000 
C 

C  If  this  is  a  spherically  symmetric  case,  there  are  no 

C  tilts,  so  go  on. 

C 

IF  (IFXN4.EQ.1)  GO  TO  30000 
C 

C  Call  the  routine  that  will  actually  determine  the  spatial 

C  tilt  of  the  boundary. 

C 

CALL  TILTS (RVxDDXHB ,  RVxDDYHB ,  IVxJ) 

C 

C - 

C  Now,  we  attempt  to  correct  this  particular  raypath  ir.crsre 

C  to  insure  that  it  ends  exactly  ON  the  boundary,  and  dcesr. 

C  overshoot  it. 

C - 

C 

RVxUDXDS  *  IVxSX  •  DSQRT (RVxCX  -  RVxETAl *RVxXF ) 

RVxUDYDS  *  IVxSY  «  DSQRT (RVxCY  -  RVxETA2 * RVxYF ) 

RVxUDZDS  *  IVxSZ  *  DSQRT  ( RVxCZ  -  RVxALPHA’RVxZF  +  RVxBETA*  ?. 

•RVxZF ) 
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Line#  Source  Line 


501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 


RVxDXDZ  *  RVxUDXDS  /  RVxUDZDS 
RVxDYDZ  =  RVxUDYDS  /  RVxUDZDS 
RVxXGRAD  ■  RVxDDXHB 
RVxYGRAD  =  RVxDDYHB 

RVxCOFMAT (1,1)  =  1.0D00  -  RVxDXDZ  *  RVxXGRAD 
RVxCOFMAT (1.2)  =  -RVxDXDZ  *  RVxYGRAD 
RVxCOFMAT ( 2 , 1 )  =  -RVxDYDZ  *  RVxXGRAD 
RVxCOFMAT ( 2 , 2 )  a  1.0D00  -  RVxDYDZ  *  RVxYGRAD 
RVxDET  =  RVxCOFMAT (1,1)* RVxCOFMAT (2,2)  -  RVxCOFMAT (1,21* 
•RVxCOFMAT (2.1) 

RTxPl  =  ( RVxXF  *  RVxCOFMAT (2,2)  -  RVxYF * RVxCOFMAT ( 1 , 2 )  ) / RVxDET 
RTxP2  *  ( RVxCOFMAT ( 1, 1) *RVxYF  -  RVxCOFMAT ( 2 , 1 ) *RVxXF )/ RVxDET 
RTxP3  =  RVxZF  +  RVxXGRAD*RTxPl  +  RVxYGRAD *RTxP 2 
RVxXF  =  RTxPl 
RVxYF  =  RTxP  2 
C 

C  Mow,  correct  the  group  and  phase  path  length  totals. 

C 

RVxGPLTOT  =  RVxGPLTOT  +  (RTxP3  -  RVxZF) /RVxUDZDS 
IF  (IFxPPF.EQ.l)  THEN 

RVxPPL  »  RVxPPL  +  ( RVxUDXDS *RVxUDXDS  +  RVxUDYDS * RVxUDYDS 
#-*•  RVxUDZDS  "RVxUDZDS  )  *  (RTxP3  -  RVxZF ) /RVxUDZDS 
END  IF 
C 

RVxZF  a  RTXP3 

RVxHZ  a  RVxHO  +  RVxZF 

RTxRTl  »  RPxR EARTH  +  RVxHZ 

RVxH5  -  D SQRT (RVxXF* RVxXF  +  RVxYF*RVxYF  +  RTxRTl * RTxRTl ) 

#-  RPxREARTH 

IF  ( RVxH5 . LT . 0 . 0D00 )  RVxH5  =  0.0D00 
C 

C  BEGIN  UPDATE  FOR  NEXT  ITERATION. 

C 

30000  RVxXI  a  RVxXF 

RVxYI  a  RVxYF 
RVxZI  »  RVxHZ 
30003  CALL  LATLON3 

LVxHCUT  »  (RVxH5.GE.RVxHCUT.AND.IVxSZ.GT.0l 
IF  (IFxCCAL.EQ.O .OR. LVxHCUT)  CALL  NEWCS ( IFxGEN ) 

C 

C  If  it  is  the  end  of  the  problem,  there's  a  buncn  of  stuff 

C  that  doesn't  need  to  be  done,  so  skip  it. 

C 

IF  ( LVxHCUT. OR. LVxEND)  GO  TO  30300 
30203  CALL  IONOPAR ( IVxJ ,  IFxN4,  IFxGEN,  IVxSCSING,  IVxSCTRIl 

*.  IVxSCTRI 2,  IVXSCTRI3) 

C 

C  Renormalize  the  c-values  in  order  to  reduce  the  errors  that 

C  might  otherwise  propagate  through  the  program. 

C 


Line#  Source  Line 


551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 
531 

582 

583 

584 

585 

586 
537 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 


rvxcsum  =  avxcx  *  rvxcy  +  rvxcz 

RVXMU2  =  1.0D00  -  RVxXX/RVxFSQU 
RVxCX  =  RVxCX  *  RVxMU2  /  RVxCSUM 

RVxCY  =  RVxCY  *  RVXMU2  /  RVxCSUM 

RVxCZ  =  RVxCZ  *  RVxMU2  /  RVxCSUM 

C 

RVxHO  =  RVxHS 
RVxLATl  =  RVxLATI 
RVxLONl  *  RVxLCNI 
RVxSINEL  =  RVxDDSZl 
CALL  ROTSEZ 

30300  CALL  ANRANG ( RVxAZI . RVxLATI , RVxLONl . RVxLATO . RVxLONO . RTxS4 : 

C 

C  Evaluate  the  problem  cutoff  criteria. 

n 

LVxRC'JT  =  (  RTxS  4  .  GE  .  RVxANGLIM) 

LVxHCUT  =  i RVxH5 . GE . RVxHCUT . AND . IVxSZ . GT . 0 ) 

C  WRITS (70 , 30301)  RTxS4 - RPxREARTH ,  RVxH5 

C30301  FORMAT (1X,G18.8,G13.8) 

C 

C  Checx  for'whether  the  ray  has  reached  a  cutoff  condition. 

C 

IF  (LVxRCUT. OR. LVxHCUT. OR. LVxEND)  THEN 
C 

C - 

C  A  cutoff  criterion  for  this  problem  has  been  met.  If  it 

C  is  not  the  primary  ray,  record  the  necessary  numbers  and 

C  re-cycie  for  the  next  ray  in  the  bundle,  otherwise. 

C  record  ail  the  information  on  the  endpoint  and  return  to 

C  MAIN. 

C - 

C 

IF  (IFxBUN.NE.O)  THEN 

RVxBNDL ( IFxBUN , 1 , IVxNBOU+1 )  =  RVxLATI 
RVxBNDL ( IFxBUN , 2 , IVxNBOU+1 )  =  RVxLCNI 
RVxBNDL (IFxBUN, 3, IVxNBOU+1)  =  RVxHS 
IFxBUN  *  IFxBUN  -  1 
RVxHMIN  =  RVxLAUN ( 7 ) 

GO  TO  20050 
END  IF 

IFxEND  =>  1 

RVxLATI  =»  RVxLATI 

RVxLONl  =  RVxLONl 

CALL  ROTSEZ 

IVxNBOU  =  IVxNBOU  +  1 

RVxBOUN ( IVxNBOU , 1 )  *  RVxLATI 

RVxBOUNf IVxNBOU, 2)  =  RVxLONl 

RVxBOUN ( IVxNBOU , 3 )  =  RVxGPLTOT 

RVxBOUN (IVxNBOU. 4)  =  RTXS4 

IF  (IFxSFL.NE.l)  THEN 
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Line#  Source  Line 


601  C 

602  C  TIMES  is  called  to  calculate  some  values  needed  by  the 

603  C  (currently  commented  out)  absorption  loss  calculation. 

604  C 

605  C  CALL  TIMES < RVxBOUN ,  IVxNBOU.  RVxLONO ) 

606  CALL  LOSS ( RVxBOUN, RVxBNDL, IVxNBOU, RVxLATO , RVxLONO. 

607  #RVxELEVQ , I? x£ND ) 

608  END IF 

609  RVxBOUN (IVxNBOU. 5)  =  RVxLOSG  +  RVxLOSR 

610  CALL  GCDEV i IVxNBOU . RVxAZIO , RVxLATO , RVxLONO . RVxBOUN , RVxDEV . 

611  RVxBOUN ( IVxNBOU . 6 i  =  RVxDEV 

612  RVxBOUN ( IVxNBOU , 9 )  =  RVxH5 

513  RVxBOUN (IVxNBOU, 10)  =  RVxPPL 

614  RVxCSUM  =  RVxCX  +  RVxCY  +  RVxCZ 

515  RVxBOUN (IVxNBOU, 11)  =  IVxSX*DSQRT ( RVxCX ) /DSQRT ( RVxCSUM ) 

616  RVxBOUN ( IVxNBOU, 12)  =  IVxSY * DSQRT ( RVxCY )/ DSQRT < RVxCSUM ) 

617  RVxBOUN ( IVxNBOU , 13 )  =  IVxSZ * DSQRT ( RVxCZ > /DSQRT ( RVxCSUM ) 

613  DO  30500  1*1. IVxNBOU 

619  RVxBOUN (1,1)  =  RVxBOUN (1,1) /RPxDTOR 

620  RVxBOUN (I, 2)  =  RVxBOUN ( I , 2 ) /RPxDTOR 

621  RVxBOUN (I, 3)  =  RVxBOUN ( I , 3 ) / 300 . 0D00 

522  RVxBOUN (I, 4)  =  RVxBOUN ( I , 4 ) *RPxREARTH 

623  30500  CONTINUE 

624  RETURN 

625  END IF 

626  GO  TO  20106 

627  END 

RAYSUB  Local  Symbols 

Name  Class  Type  Size 

RVXELEV . param 

RVXAZI . param 

RTXP2  .  local  REAL*8  3 

ITXK . local  INTEGER* 4  4 

RTXP3  .  local  REAL*8  8 

IFXGEN . local  INTEGER*  4  4 

IVXJ .  local  INTEGER* 4  4 

RVXRTMP  .  local  REAL *8  3 

RTXS4  .  local  REAL* 8  8 

RVXUDXDS . local  REAL  *8  3 

I . local  INTEGER  *  4  4 

RVXUDYDS . local  REAL  *8  3 

J . local  INTEGER*  4  4 

RVXUDZDS . local  REAL  *8  3 

IFXSFL . local  INTEGER  *  4  4 

IFXBUN . local  INTEGER  *  4  4 

RVXLA  .  local  REAL *3  3 
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RAYSUB  Local  Symbols 


Name  Class  Type  Size 

IFXPPF . local  INTEGER*  4  4 

RVXLATO  .  local  REAL *8  3 

LVXEND . local  LOGICAL  *4  4 

IVXIII . local  INTEGER*  4  4 

IVXNBL . local  INTEGER  *4  4 

RVXMU2 . local  REAL  *3  3 

RVXAZIO  .  local  REAL* 8  3 

RTXRT1 . local  REAL  *3  3 

RTXAINC  .  local  REAL* 8  3 

RVXDELR2 . local  REAL  *3  3 

RVXLONO  .  local  REAL* 3  3 

RVXGPLTOT  .  local  REAL *8  8 

RVXLO  .  local  REAL* 8  8 

RVXELEVO . local  REAL  *  8  8 

RVXDET . local  REAL  *8  8 

RVXDEV . local  R£AL*8  8 

RVXBNDL  .  local  REAL* 8  1056 

RVXMU  .  local  REAL *8  8 

RVXHZ  .  local  REAL-8  8 

RVXDDSZ1 . local  REAL  *3  8 

RVXDELR  .  local  REAL *8  3 

RVXPPI . local  REAL'S  3 

IFXN4  .  local  INTEGER-4  4 

RVXDDXHB . local  REAL  *8  8 

RVXDDYHB . local  REAL*  8  8 

IVXNBOU  .  local  INTEGER* 4  4 

RVXPPL . local  REAL*  8  8 

IVXSCTRI1  .  local  INTEGER *4  4 

RVXFREQ  .  local  REAL *8  8 

LVXHCUT  .  local  LOGICAL *4  4 

IVXSCTRI2  .  local  INTEGER *4  4 

RVXDELZ  .  local  REAL *8  S 

RTXDZCALC  .  local  REAL *8  S 

IVXSCTRI3  .  local  INTEGER *4  4 

ITXTEMP  .  local  REAL* 8  8 

RVXRALIM . local  REAL  *8  S 

RVXCOSEL . local  REAL  *8  3 

RVXXGRAD . local  REAL  *8  8 

WXYGRAD . local  REAL  *8  8 

RVXRHAX  .  local  REAL *8  8 

*VXCSUM  .  local  REAL'S  3 

RVXHQ . local  REAL  *  8  3 

1VXRCUT  .  local  LOGICAL* 4  4 

RVXDXDZ  .  local  REAL *3  3 

*VXCOFMAT  .  local  REAL* 8  32 
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RAYSU8  Local  Symbols 


Name  Class  Type  Size 

IFXCCAL . local  INTEGER*  4  4 

RVXDYDZ  .  local  REAL *8  3 

RVXSINEL . local  REAL  *8  3 

RVXGPLINC  .  local  REAL *8  3 

IFXEND . local  INTEGER*  4  4 

IVXSCSING . local  INTEGER  *  4  4 

RTXP1 . local  REAL*  8  3 

RVXH .  SCPS1A  REAL*8  43200 

RVXV1  .  I0N03  REAL* 3  8 

RVXV2 . ICN03  REAL*  8  8 

RVXSEZGEC . MI  SC  REAL  *8  7  2 

RVXLOSA  .  LOSSES  REAL* 3  3 

RVXFNSB . IGNOl  REAL*  3  24 

RVXHB . IONOl  REAL  *  8  24 

RVXLOSR  .  LOSSES  REAL* 3  3 

RVXLOSX  .  LOSSES  REAL* 3  8 

RVXLOSG  .  LOSSES  REAL* 8  8 

RVXHBOT  .  OTHER  REAL *8  8 

RVXANGLIM  .  GORP  REAL *3  8 

RVXHCUT  .  OTHER  REAL *8  8 

RVXFSQU  .  OTHER  REAL* 8  3 

RPXHTOP  .  PRAM  REAL *8  8 

RVXHMIN  .  MI SC  REAL *3  8 

RVXRPI . OTHER  REAL  *8  8 

RVXCX . MORE  REAL  *8  8 

RVXXX . I0N03  REAL  *  8  3 

RVXCY . MORE  REAL  *8  8 

RVXCZ . MORE  REAL  *8  3 

RVXHBND  .  I0N03  REAL *8  8 

IVXPARAM . MAINDAT  INTEGER* 4  2  4 

IVXLAUN  .  MAINDAT  INTEGER* 4  12 

RVXXI  .  START  REAL *8  3 

RVXYI  .  START  REAL *3  3 

RVXZI  .  START  REAL* 8  8 

IVXSSNUM . LPARM  INTEGER*  4  4 

RVXF40 . .  .  .  .  TEMPI  REAL* 8  8 

IVXTIME  .  LPARM  INTEGER *4  20 

RVXH5 . END  REAL  *8  3 

RVXF65 . TEMPI  REAL*8  3 

RVXK1  .  TEMPI  REAL'S  8 

IFXGRND  .  LPARM  INTEGER* 4  4 

RVXHL  .  TEMPI  REAL *8  3 

RVXXF . END  REAL  *8  8 

ICXNSCP  .  SCPS1  INTEGER* 4  4 

RVXYF . END  REAL  *8  3 
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RAYSUB  Local  Symbols 


Name  Class  Type  Size 

IVXSX . MORE  INTEGER*  4  4 

RVX2F . END  REAL  *3  3 

IVXSY . MORE  INTEGER*  4  4 

IVXS2 . MORE  INTEGER  *4  4 

IFXCASE  .  I0N03  INTEGER* 4  4 

RVXGRID  .  MAINDAT  REAL *8  48 

RVXALPHA . IONOl  REAL  *3  3 

RVXIONPT . MAINDAT  REAL *8  3  6400 

RVXLAUN  .  MAINDAT  REAL *8  56 

RVXBETA . IONOl  REAL  *  3  3 

RVXOPTION  .  MAINDAT  REAL *8  56 

RVXETA1  .  IONOl  REAL* 3  8 

RVXETA2  .  IONOl  REAL *8  8 

RVXLATI  .  START  REAL *3  8 

RVXDD6 . GORP  REAL  *8  8 

RVXLONI  .  START  REAL *3  8 

RVXLATI  .  OTHER  REAL* 3  3 

RVXBOUN  .  RESULTS  REAL *8  1320 

RVXLONI  .  OTHER  REAL *8  8 

RVXX7 . MISC  REAL*  8  8 

RVXY7 . MISC  REAL  *8  3 

RVXYSAR  .  LPARM  REAL *8  8 

RVX27 . MISC  REAL  *3  8 

RVXA100  .  LPARM  REAL* 8  3 

RVXR1 . MISC  REAL  *8  8 

RVXTIM . LPARM  REAL  *8  8 

RVXR2 . MISC  REAL'S  8 

RVXB5 . I0N02  REAL  *8  24 

RPXPI . PRAM  REAL  *8  3 

RVXB6 . I0N02  REAL  *8  2  4 

RPXDTOR  .  PRAM  REAL *8  8 

RVXA5 . I0N02  REAL  *8  24 

RPXREARTH  .  PRAM  REAL *8  8 

RVXLATSC . SCPS1  REAL*  8  14400 

RVXA6 . I0N02  REAL  *8  24 

RVXLONSC . SCPS1  REAL  *  3  14400 

RVXE5 . I0N02  REAL  *8  24 

RVXE6 . I0N02  REAL*  8  24 

RVXFNSQ . SCPS1A  REAL*  8  43200 
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Line#  Source  Line 


629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

543 

544 

645 

646 

647 

643 

649 

650 

651 

652 
553 

654 

655 

656 

657 

658 

659 

660 
661 
662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 


SUBROUTINE  ROTSE2 
C 

c - 

c 

C  ROTSEZ  —  SUBROUTINE  TO  ESTABLISH  THE  TRANSFORMATION 
C  MATRIX  FROM  S.E.2.  TO  G.E.C.  COORDINATES 

C 

C  CALLED  BY:  RAYSUB 

C 

C - 

C 

C  AUTHOR:  MICHAEL  H.  REILLY  &  ERIC  L.  STROBEL 

C 

C  DATE:  07/30/36 

C 

C  VERSION:  1.1 

C 

c - 

c 

C  REVISED:  07/25/86  —  INITIAL  REVISION.  TRANSLATED 

C  FROM  TEKTRONIX  BASIC  TO  VAX  FORTRAN  BY 

C  ERIC  L.  STROBEL. 

C 

C  07/30/86  —  VI . 1 .  Change  over  to  use  of 

C  REAL* 8  precision  in  the  calculations. 

C 

C - 

c 

C  USES:  RVCxLA  LAT  OF  START  POINT 

C  RVCxLO  LON  OF  START  POINT 

C 

C  TO  CALCULATE  THE  ELEMENTS  OF  THE  ROTATION  MATRIX. 

C 

C  RETURNS:  RVCxSEZTX (3,3)  THE  ROTATION  MATRIX 

C 

C - - 

c 

REAL *8  RVCxLA,  RVCxLO,  RVCxSEZTX ( 3 . 3 ) ,  RTLxl 
REAL  *  8  RTLx2 ,  RTLx3 ,  RTLx4 ,  RTLx5 ,  RTLx6 ,  RTLx7 ,  RTLxB 
REAL  *  8  RTLx9 ,  RTLxlO .  RTLxl 1,  RTLxl2,  RTLxl3,  RTLxl4 
C 

COMMON  /MISC/  RVCxSEZTX. RTLx5.RTLx6.RTLx7.RTLx8.RTLx9.RTLx 
COMMON  /OTHER/  RVCxLA,  RVCxLO, RTLxll , RTLxl2 , RTLxl3 , RTLxl 4 
C 

RTLxl  *  DS IN (RVCxLA) 

RTLx2  *  DCOS( RVCxLA) 

RTLx3  =  DSIN( RVCxLO) 

RTLx4  *  DCOS( RVCxLO) 

RVCxSEZTX (1.1)  =  RTLxl  *  RTLx4 
RVCxSEZTX (1, 2)  =  -RTLx3 
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Line#  Source  Line 

679  RVCxSEZTX (1,3)  =  RTLx2  *  RTLx4 

630  RVCxSEZTX ( 2 , 1 )  =  RTLxl  *  RTLx3 

681  RVCxSEZTX (2. 2)  =  RTLx4 

682  RVCxSEZTX (2, 3)  =  RTLx2  *  RTLx3 

683  RVCxSEZTX (3,1)  =  -RTLx2 

684  RVCxSEZTX (3, 2)  =  0.0D00 

685  RVCxSEZTX (3,3)  =  RTLxl 

686  RETURN 

637  END 

ROTSEZ  Local  Symbols 

Name  Class  Type 

RTLX1  .  local  REAL* 8 

RTLX2  .  local  REAL* 8 

RTLX3  .  local  REAL *8 

RTLX4  .  local  REAL *8 

RVCXLA . OTHER  REAL  *8 

RVCXLO . OTHER  REAL  *8 

RVCXSEZTX  .  MI SC  REAL *8 

RTLX5 . MISC  REAL  *8 

RTLX6 . MISC  REAL  *8 

RTLX7 . MISC  REAL  *8 

RTLX8 . MISC  REAL -8 

RTLX9 . MISC  REAL  *8 

RTLX10 . MISC  REAL*  8 

RTLX11 . OTHER  REAL  *8 

RTLX12 . OTHER  REAL  *8 

RTLX13 . OTHER  REAL*  8 

RTLX14 . OTHER  REAL  *8 


Size 


7 
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Line#  Source  Line 


639 

690  C 

691  C 

692  C 

693  C 

694  C 

695  C 

696  C 

697  C 

698  C 

699  C 

700  C 

701  C 

702  C 

703  C 

704  C 

705  C 

706  C 

707  C 

708  C 

709  C 

710  C 

711  C 

712  C 

713  C 

714  C 

715  C 

716  C 

717  C 

718  C 

719  C 

720  C 

721  C 

722  C 

723  C 

724  C 

725  C 

726  C 

727  C 

728  C 

729  C 

730 

731 

732 

733 

734  C 

735 

736 

737 

738  C 


SUBROUTINE  LATLON3 


LATLON3  —  SUBROUTINE  TO  OBTAIN  LAT ,  LON  OF  THE  INITIAL 
POINT  IN  THE  RAYPATH  INCREMENT. 

CALLED  BY:  RAYSUB 


AUTHOR:  MICHAEL  H.  REILLY  4  ERIC  L.  STROBEL 

DATS:  07/30/86 

VERSION:  1.1 


REVISED:  07/25/86  —  INITIAL  REVISION.  TRANSLATED 

FROM  TEKTRONIX  BASIC  TO  VAX  FORTRAN  BY 
ERIC  L.  STROBEL. 

07/30/86  —  VI . 1 .  Change  over  to  use  of 
REAL *8  precision  in  the  calculations. 


USES:  RVCxX.Y.Z  INITIAL  X.  Y.  Z  FOR  THE  RAYPATH 

INCREMENT 

RVCxMAT (3.3!  SEZ-GEC  TRANSFORMATION  MATRIX 

RPCxR  EARTH  RADIUS 

TO  CALCULATE  THE  CORRESPONDING  LAT,  LON  FOR  THE  GIVEN 
POINT. 

RETURNS:  RVCxLA, LO  LAT,  LON  FOR  THE  INITIAL 

RAYPATH  POINT. 


REAL* 8  RVCxl,  RVCx2 ,  RVCx3 ,  RVCx4 ,  RVCx5 ,  RVCx6 
REAL  *  8  RPCxPI ,  RPCxDTOR ,  RPCxR 
REAL *8  RVCxMAT (3,3) ,  RVCxX,  RVCxY,  RVCxZ 
REAL *8  RVCxLA ,  RVCxLO,  RTLxl ,  RTLx2 

COMMON  /START/  RVCxX,  RVCxY,  RVCxZ,  RVCxLA,  RVCxLO 

COMMON  /PRAM/  RPCxPI,  RPCxDTOR,  RPCxR,  RTLx2 

COMMON  /MISC/  RVCxMAT, RVCxl, RVCx2 , RVCx3 , RVCx4 , RVCx5 . RVCx6 
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Line#  Source  Line 


739  RTLxl  =  RPCxR  +  RVCxZ 

740  RVCx4  =  DSQRT (RVCxX«RVCxX  RVCxY«RVCxY  +  RTLxl ‘RTLxl) 

741  C 

742  C  RVCxl ,  2.  S  3  represent  the  SEC  coordinates. 

743  C 

7  44  RVCxl  =  RVCxMAT  (1.1)  * RVCxX  +  RVCxMAT  (1,2)  * RVCxY  ♦  RVCxMAT 

745  « RTLxl 

746  RVCx2  =  RVCxMAT ( 2, 1) ‘RVCxX  +  RVCxMAT ( 2 . 2 ) ‘RVCxY  -  RVCxMAT; 

747  ‘RTLxl 

748  RVCxS  *  RVCxMAT (3.1) ‘RVCxX  +  RVCxMAT ( 3 , 2 ) ‘RVCxY  +  RVCxMAT' 

749  ‘RTLxl 

750  C 

751  RVCx5  *  DSQRT (  RVCxl ‘RVCxl  +  RVCx2«RVCx2  ) 

752  RVCxLA  =  DASINi  RVCx3  /  RVCx4  ) 

753  RVCxLO  *  DASINi  RVCx2  /  RVCx5  ) 

754  IF  (RVCxl. GE.O.ODOO!  RETURN 

755  RVCxLO  -  -RVCxLO  +  INTSIGN ( RVCx2 ) ‘RPCxPI 

756  IF  ( INTSIGN (RVCX2) . EQ . 0 )  RVCxLO  =  RPCxPI 

757  RETURN 

758  END 

LATLON3  Local  Symbols 

Name  Class  Type  Size 

RTLX1  .  local  REAL *8  8 

RVCX1 . MISC  REAL « 8  3 

RVCX2 . MISC  REAL*  3  3 

RVCX3 . MISC  REAL  *3  3 

RVCX4 . MISC  REAL*  8  3 

RVCX5 . MISC  REAL‘3  3 

RVCX6 . MISC  REAL‘3  3 

RPCXPI . .  .  PRAM  REAL  *  8  3 

RPCXDTOR . PRAM  REAL‘3  3 

RPCXR . PRAM  REAL » 8  3 

RVCXMAT . MISC  REAL‘3  7  2 

RVCXX  .  START  REAL *3  3 

RVCXY  .  START  REAL‘3  3 

RVCXZ . START  REAL  *  3  3 

RVCXLA . START  REAL‘3  8 

RVCXLO . START  REAL'S  3 

RTLX2 . PRAM  REAL  *8  3 

Global  Symbols 

Name  Class  Type  Size 

ANRANG . extern  “*  *“ 
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Global  Symbols 


Name 

Class 

Type 

Size 

END  .  .  . 

.  common 

*  *  * 

32 

ENDPT  .  . 

.  extern 

«  *  * 

a  a  a 

GCDEV  .  . 

.  extern 

a  a  * 

a  a  a 

GORP .  .  . 

.  common 

a  a  a 

16 

INTSIGN  . 

.  extern 

INTEGER -4 

a  a  a 

IONOl  .  . 

.  common 

a  *  * 

30 

I0N02  .  . 

.  common 

a  a  a 

144 

I0N03  .  . 

.  common 

a  a  a 

36 

IONOPAR  . 

.  extern 

a  a  a 

a  a  a 

LATLON3  . 

.  FSUBRT 

a  a  a 

a  a  a 

LOSS.  .  . 

.  extern 

a  a  a 

a  a  a 

LOSSES.  . 

.  common 

a  a  a 

32 

LPARM  .  . 

.  common 

a  a  a 

52 

MAINDAT  . 

.  common 

a  a  a 

36596 

MISC.  .  . 

.  common 

a  a  a 

120 

MORE .  .  . 

.  common 

a  a  a 

36 

NEWCS  .  . 

.  extern 

a  a  a 

a  a  a 

OTHER  .  . 

.  common 

a  a  a 

43 

PHSPL  .  . 

.  extern 

a  a  a 

a  a  a 

PRAM.  .  . 

.  common 

a  a  a 

32 

RAYSUB .  . 

.  FSUBRT 

a  a  a 

a  a  a 

RESULTS  . 

.  common 

a  a  a 

1320 

R0TSE2 .  . 

.  FSUBRT 

a  a  a 

a  a  a 

SCPS1  .  . 

.  common 

a  a  a 

23304 

SCPS1A.  . 

.  common 

a  a  a 

36400 

START  .  . 

.  common 

a  a  a 

40 

TEMPI  .  . 

.  common 

a  a  a 

32 

TILTS  .  . 

Code  size 
Daca  size 

*  Idee 
»  OObf 

(7630) 

(191) 

.  extern 

a  a  a 

a  a  a 
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ine#  Source  Line 


1 

2 

3  C 

4  C 

5  C 
5  C 
7  C 
3  C 
9  C 

10  C 

11  C 

12  C 

13  C 

14  C 

15  C 

16  C 

17  C 
13  C 

19  C 

20  C 

21  C 

22  C 

23  C 

24  C 

25  C 

26  C 

27  C 

28  C 

29  C 

30  C 

31  C 

32  C 

33  C 

34  C 

35  C 

36  C 

37  C 

38  C 

39  C 

40  C 

41  C 

42  C 

43  C 

44  C 

45  C 

46  C 

47  C 

48  C 

49  C 

50  C 


SUBROUTINE  ICNOPAR i IVSxJ , IFSxN4 , IFSxG , IVSxSCS . IVSxSCTl . IVSxSC 
* , IVSXSCT3) 


IONOFAR  —  SUBROUTINE  TO  CALCULATE  THE  PROPERTIES  CF  THE 
IONOSPHERE  FOR  A  GIVEN  POSITION. 

CALLED  BY:  RAYSUB 

CALLS:  TRIANG,  INBOX,  INTERP ,  CASE! -5 


AUTHORS:  MICHAEL  H.  REILLY  i  ERIC  L.  STROBEL 

DATE:  03/18/38 

VERSION:  3.1 


REVISED:  07/25/36  --  INITIAL  REVISION.  TRANSLATED 

FROM  TEKTRONIX  BASIC  TO  VAX  FORTRAN  BY 
ERIC  L.  STROBEL. 

07/30/86  —  VI . 1 .  Change  over  to  use  of 
REAL *8  precision  on  the  calculations. 

10/10/86  --  V2.0.  Altered  to  fit  the  new 
status  of  the  old  RAYTRACE  program  as  a 
subroutine.  Important  change  in  sorting 
out  which  triangle  a  pt.  is  in:  With  large 
arrays  of  points  the  old  algorithm  would 
have  taken  nearly  forever  (REALLY!).  Since 
the  points  are  now  being  defined  on  a  grid, 
the  problem  is  vastly  simpler. 

09/01/87  --  V3.0.  Now  incorporates  the 
RADAR-C  ionosphere.  The  interpolation 
routine  has  been  modularized.  Estimates 
of  the  nearest  boundary  are  now  reported. 

03/13/38  --  V3.1.  Some  corrections  have  ce^ 
made  so  that  the  manipulation  of  grid  incite 
works  when  the  data  line  is  crossed  by  the 
grid . 
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ine# 

Source 

Line 

51 

C 

USES: 

IVSxJ 

J-TH  IONOSPHERE  LAYER 

52 

C 

IFSxN4 , G 

FLAGS 

53 

C 

RVCxX, Y. Z7 

INTERMEDIATE  COORD.  VALUES  FROM 

54 

C 

LAT,  LON  COMPUTATION 

55 

C 

RVCxRl 

ANOTHER  INTERMEDIATE  VALUE 

56 

C 

RVCxLAI , LOI 

INITIAL  PT'S.  LAT,  LON 

57 

C 

RVCxH5 

NEW  HEIGHT 

58 

c 

ICCxN 

NUMBER  OF  S.C.P.  '  S 

59 

c 

RPCxRE 

RADIUS  OF  THE  EARTH 

60 

c 

RVCxFN ( 1800 ,3) 

X 

61 

c 

RVCxH (1300 . 3) 

X 

62 

c 

RVCxLA ( 1300 ) 

X-DATA  FOR  THE  S.C.P.'S 

63 

c 

RVCxLO(iaOO) 

X 

64 

c 

IVCxSZ 

SIGN  FOR  Z 

65 

c 

RVCxFREQ 

WAVE  FREQ.  SQUARED 

66 

c 

67 

c 

TO  CALCULATE  THE  VALUES 

1  OF  THE  IONOSPHERIC  PARAMETERS 

63 

c 

USED  TO  UPDATE 

THE  RAYPATH. 

69 

c 

70 

c 

RETURNS : 

71 

c 

RVCxFB ( 3 ) 

FN*  2  VALUES  OF  THE  LAYERS 

72 

c 

RVCxHB ( 3 ) 

H  &  Y  VALUES  OF  THE  LAYERS 

73 

c 

RVCxALPH 

X 

74 

c 

RVCxBETA 

X 

75 

c 

RVCxETl 

X-COEF.  VALUES  FOR  MU *2 

76 

c 

RVCXET2 

X 

77 

c 

RVCXB5&6 

1 

78 

c 

RVCXE5&6 

] 

79 

c 

RVCxVl 

] -SOME  INTERMEDIATE  VALUES 

80 

c 

RVCXV2 

] 

31 

c 

IVSxSCS 

VBL .  SIGNIFYING  USE  OF  SINGLE 

32 

c 

S.C.P. 

83 

c 

IVSxSCTl-3 

VBL S.  FOR  THE  TRIANGLE  OF  S.C.P. 

34 

c 

USED 

85 

a  c 

c 

— -  - 

o  o 

37 

c 

88 

INTEGER 

IVSxSCS,  IVSXSCT1,  IVSXSCT2,  IVSxSCT3 

89 

INTEGER 

IVCxSCS,  IVCXSCT1,  IVCXSCT2,  IVCxSCT3 ,  IFCxN4 

90 

INTEGER 

IVCxSX,  IVCxSY , 

IVSxJ,  IFCxSN 

91 

INTEGER 

IFSXN4,  IFSxG,  I 

vcxsz,  iccxn 

92 

INTEGER 

IFLxOUT ,  IVLxIN, 

IVLxFIN ,  IVCxCASE 

93 

c 

94 

REAL *8 

RVxGRID  <  6 )  ,  RPCxRE,  RPCxPI.  RPCxDR 

95 

REAL *8 

RTLxDl,  RTLxD2.  RTLxD5 ,  RTLxl 

96 

REAL *8 

RVLxTRl ,  RVLXTR2 , 

RTLxTH 

97 

REAL *8 

RTLxH,  RTLxl 3,  RTLxl 4,  RTLxl 5 

98 

REAL *8 

RVCxA5 ( 3 ) ,  RVCXA6 ( 3 ) ,  RVCxLAI,  RVCxLOI 

99 

REAL ‘8 

RVCxFN (18 00, 3) , RVCxH ( 1800 , 3 ) , RVCxLA ( 1800 ) , RVCxLO - 

100 

REAL *8 

RVCxALPH,  RVCxBETA,  RVCxHBND ,  RVCxF40 .  RVCxF65 
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Line#  Source  Line 


101 

102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 
117 
113 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 
133 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 


REAL* 8  RVCxETl.  RVCxET2 .  RVCxFB ( 3 ) ,  RVCxHB ( 3 ) ,  RVCxB5(3j 
REAL* 8  RVCxB6 ( 3 ) ,  RVCxE5(3>,  RVCxE6(3) 

REAL  *  8  RVCxVl ,  RVCXV2.  R'/CxH5  ,  RVCxFREQ 
REAL* 8  RVCxLl ,  RVCxLOl ,  RVCxHBOT .  RVLxHTV ,  RVLxSLV 
REAL* 8  RVCxXI ,  RVCxYI .  RVCxZI ,  RVCxXF ,  RVCxYF .  RVCxZF 
REAL  *  8  RVCxKl ,  RVCxHL .  RVCxXX,  RVCxXL ,  RVCxXU,  RVCxAO 
REAL* 3  RVCxHB 1 ,  RVCxHU.  RVCxBO .  R7CXH2 ,  RVCxYS .  RVCxSLl 
REAL*  3  RVCXSL2.  RVCxHIL,  RVCxAl ,  RVCxBl ,  RVCxCl.  RVCxHl? 

REAL *3  RVCxA2,  RVCx32.  RVCxC2.  RVCxHT3 .  RVCxHT4 .  RVCxHTS 
REAL* 3  RVLxLATS ,  RVLxLONS ,  RVLxLATE ,  RVLxLONE ,  RVLxLOI 
REAL *3  RVLXF98,  RVLxK2 .  RVCxH2P .  RTCxA ,  RTCxB ,  RTCxC 
C 

COMMON  /MAINDAT/  RVxGRID 

COMMON  /PRAM/  RPCxPI.  RPCxDR .  RPCxRE ,  RTCxA 
COMMON  /SCPS1/  ICCxN . RVCxLA . RVCxLO 
COMMON  /SCPS1A/  RVCxFN.RVCxH 

COMMON  /OTHER/  RVCxLl . RVCxLOl . RVCxHBOT . RVCxFREQ . RTCxB . RTCxC 
COMMON  /START/  RVCxXI,  RVCxYI,  RVCxZI,  RVCxLAI ,  RVCxLOl 
COMMON  /END/  RVCxXF,  RVCxYF,  RVCxZF,  RVCxHS 

COMMON  / lONOl /  RVCxALPH , RVCxBETA , RVCxETl , RVCxET2 , RVCxFB , RVCxHB 

COMMON  / I0NO2/  RVCxA5 . RVCxA6 , RVCxBS , RVCxB6 . RVCxES , RVCxE6 

COMMON  /ION03/  RVCxVl,  RVCxV2 ,  RVCxXX,  IVCxCASE,  RVCxHBND 

COMMON  /MORE/  IVCxSX,  IVCxSY,  IVCxSZ 

COMMON  /TEMPI/  RVCxF40 ,  RVCxF65,  RVCxKl,  RVCxHL 

COMMON  /TEMP 2/  IVCxSCS ,  IVCxSCTl ,  IVCXSCT2 .  IVCxSCT3 ,  IFCxN4 

COMMON  /TEMP 3/  RTLXI3.  RTLXI4.  RTLxIS,  RTLxDS 

COMMON  / VAR1/  RVCxXL,  RVCxXU,  RVCxHU.  RVCxAO.  RVCxBO 

COMMON  / VAR2/  RVCxHB!  .  RVCxH2  , RVCxYS  ,  RVCxSLl ,  RVCXSL2  .  RVCxHU 

COMMON  /VAR3  /  RVCxAl,  RVCxBl ,  RVC::;i.  RVCxHl?.  RVCxHl? 

COMMON  /VAR4/  RVCxA2 , RVCxB2 , RVCxCl , RVCxHT3 , RVCxHT4 . RVCxHTS 
COMMON  /RAID/  IFCxSN 
C 

c - 

c 

10000  RTLxH  =*  RVCxH5 

RVCxHBND  *  0.0D00 
RVCXLAI  *  RVCxLAI  /  RPCxDR 
RVCxLOl  *  RVCxLOl  /  RPCxDR 
RVLxLOI  ■  RVCxLOl 
IF  ( ICCxN. GT.l)  THEN 
C 

C - - - 

C  If  the  number  of  points  is  not  1.  then  there  is  a  grid.  I; 

C  calculate  the  grid  boundaries,  then  call  INBOX  to  determine 

C  whether  the  present  location  is  w/in  the  grid.  If  net  ir. 

C  the  grid,  then  do  a  spherically  symmetric  ionosphere  bss-c 

C  upon  the  nearest  grid  point's  parameters.  within  the  end 

C  call  TRIANG  to  determine  the  three  points  chat  are  to  c- 

C  used  in  the  interpolation. 

C - 
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Line#  Source  Line 


151  C 

152 

153 

154 

155 

156  C 

157  C 

158  C 

159  C 

160  C 

161  C 

162  C 

163  C 

164  C 

165  C 

166 

167  C 
163 

169 

170 

171  C 

172  C 

173  C 

174  C 

175  C 

176 

177 

178 

179 

180 
181 
182 
183 
134 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198  C 

199  C 

200  C 


RVLxLATS  =  RVxGRID ( 3 ) 

RVLxLONS  »  RVxGRID (4) 

RVLxLATE  =  RVLxLATS  +  ( RVxGRID ( 5 ) -1 . 0D00 )« RVxGRID ( 1 ) 

RVLxLONE  =  RVLXLONS  +  ( RVxGRID ( 6 )- 1 . 0D00 )« RVxGRID i 2 ) 

If  the  grid  spans  the  date  line,  it's  longitude  values 
will  not  be  negative.  While  this  is  good  for  purposes 
of  the  interpolation,  ray  points  with  west  longitudes 
will  spuriously  be  considered  to  be  outside  the  grid. 
Hence,  the  need  for  the  temporary  copy  of  the  longitude. 

If  necessary,  the  next  statement  will  bring  the  longitude 
of  the  ray  point  into  the  same  longitude  system  as  the 
grid . 

IF  (RVLxLOI.LT. RVLxLONS)  RVLxLOI  •  RVLxLOI  +  360.0 

IFLxOUT  =  -1 

CALL  INBOX ( RVCxLAI , RVLxLOI , RVLxLATS , RVLxLONS , RVLxLATE 
# , RVLxLONE , IFLxOUT ) 

IFLxOUT  »  1  means  that  the  current  location  is  outside  the 
ionospheric  specification  grid,  so  only  the  nearest  grid 
point  is  used. 

IF  ( IFLxOUT. EQ.l)  THEN 

IFCxN4  »  1 

IF  (RVCxLAI.LT. RVLxLATS)  THEN 
ITLxA  »  i 

ELSE  IF  ( RVCxLAI. GT. RVLxLATE)  THEN 
ITLxA  «  IDNINT ( RVxGRID ( 5 ) ) 

ELSE 

ITLXA  =IDNINT ( ( ( RVCxLAI-RVLxLATS ) /RVxGRID ( 1 , ! *1 . 

END  IF 

IF  (RVLxLOI.LT. RVLxLONS)  THEN 
ITLxB  »  1 

ELSE  IF  (RVLxLOI .GT. RVLxLONE)  THEN 
ITLxB  =  IDNINT (RVxGRID (6) ) 

ELSE 

ITLxB  aiDNINT( ( ( RVLxLOI -RVLxLONS ) /RVxGRID(2) i +1 . 

ENDIF 

IVCxSCS  a  IDNINT ( (ITLxA  -  1 . 0D00 ) ‘RVxGRID ( 6 )  +  ITLxB 

ELSE 

CALL  TRIANG 

IFCxN4  -  2 

ENDIF 

ELSE 

These  are  the  values  to  use  if  only  one  specification  point 
is  given. 
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Line#  Source  Line 


201  C 

202 

203 

204 

205 

206  C 

207  C 

208  C 

209 

210 
211 
212 

213 

214 

215 

216 
217 
213 

219 

220 
221 

222  C 

223  C 

224  C 

225  C 

226 

227 

228  C 

229  C 

230  C 

231  C 

232  C 

233  C 

234  C 

235  C 

236  C 

237  C 

238  C 

239 

240 

241  C 

242  C 

243  C 

244  C 

245  C 

246  C 

247  C 
243 

249 

250 


IVCxSCS  =  1 
IFCxN4  =  1 
IFLxOUT  =  1 
END  IF 

Seme  initializations . 

IVSxSCS  =  IVCxSCS 
IVSxSCTl  =*  IVCxSCTl 
IVSXSCT2  =  IVCXSCT2 
IVSXSCT3  *  IVCXSCT3 
IFSXN4  =  IFCxN4 
RVCxETl  =  0.0D00 
RVCXET2  =  0.0D00 
RVCxALPH  =  O.ODOO 
RVCxBETA  =  O.ODOO 
RVCxXX  =  O.ODOO 
RVCxLOI  -  RVCxLOI  «  RPCxDR 
RVLxLOI  =  RVLxLOI  «  RPCxDR 
RVCxLAI  =  RVCxLAI  »  RPCxDR 

For  calculation  purposes  here,  move  slightly  off  of  the 
boundary,  if  we're  at  one. 

IF  ( IFSxG . EQ . 2 . OR . IFSxG . GE . 6 )  RTLxH  = 

#RTLxH  *  IVCxSZ* 1 . 0D-02 


Now  the  enumeration  of  possible  height  regions  begins. 
First,  handle  what  is  needed  for  the  free-space 
underlying  the  ionosphere  (below  40  km).  Also,  the  iowe 
part  of  the  D  layer  is  exponential  and  spherically  sym¬ 
metric,  so  do  that  now  too,  since  it  involves  no 
interpolation.  For  full  details  see  the  RADAR-C  report 
cited  in  the  documentation. 


IF  (RTLxH. LE. 40 .0D00)  THEN 
IF  ( IVCxSZ. GT.0)  THEN 


HBND  is  the  (approximate  in  some  cases)  height  of  the 
next  boundary  to  be  encountered. 

IVSxJ  is  sort  of  an  integer  counterpart  to  HBND. 


RVCxHBND  =  40.0DO0 
IVSxJ  =  1 

ELSE 
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251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 


237 

233 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 


C 

r 


c 

c 

c 

c 

c 

c 

c 

c 

c 


RVCxHBND  *  O.ODOO 
IVSxJ  =  0 
END  IF 
RETURN 
ENDIF 

Vhe  lower  D  region  of  RADAR-C 

IF  (RTLxH.LS.65.0D00)  THEN 

RVCxXX  =  RVCXF4Q  «  DEXP (RVCxKl  *  ( RTLxH 
RVCxALPH  =  RVCxKl  *  RVCxXX  /  RVCxFREQ 
RVCxBETA  =  -RVCxKl  *  RVCxALPH  /  2.0DOO 


-  40 . ODOO , 


263 

IF  (IVCxSZ 

.GT.0!  THEN 

264 

RVCxHBND  =  65. ODOO 

265 

IVSxJ 

=  2 

266 

ELSE 

267 

RVCxHBND  =  40.  ODOO 

263 

IVSXJ 

=  1 

269 

ENDIF 

270 

RETURN 

271 

ENDIF 

272 

273 

C 

c  — 1 

274 

c 

Here  is  where 

,  if  the  case  is  a  non-: 

275 

c 

one,  that  interpolation  begins  to  : 

276 

c 

277 

c 

Note:  FB ( 1 ) 

— >  foE  **  2 

273 

c 

FB  ( 2 ) 

— >  foFl  **  2 

279 

c 

FB  ( 3 ) 

— >  f oF2  ««  2 

280 

c 

231 

c 

HB  ( 1 ) 

-->  hmFl 

282 

c 

HB  (  2) 

— >  hmF2 

283 

c 

HB  (  3 ) 

— >  YmF2 

284 

c 

285 

c 

The  interpolation  is  done  as  follows 

286 

c 

X  =  A  ♦  3* 

Lat  +  E* Lon ,  where  A,  B 

by  setting  up  the  three  equations  at  the  three  grid 
points  surrounding  the  point  in  question.  This  is  : 
in  INTERP. 


cn 


Recall  that  IFSxN4  =  1  for  the  spherically  symmetric  case 


IF  (IFSxN4.EQ.il  THEN 

RVCxFB(l)  =  RVCxFN (IVSxSCS, 1) 

ELSE 

RVCxVl  =  RPCxRE  RTLxH 
RVCXV2  =  RVCxVl  »  DCOS ( RVCxLAI ) 
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301 

302 

303 

304 

305 

306 

307 

308  C 

309  C 

310  C 

311  C 

312 

313 

314 

315 

316 

317 

313  C 

319  C 

320  C 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342  C 

343  C 

344  C 

345  C 

346 

347 

348 

349 

350 


RTLxI3  =  RVCxLA ( IVSxSCTl ) *RVCxLO ( IVSxSCT2 ) -RVCxLA i IVSxSCT 
# -RVCxLO ( IVSxSCTl ) 

RTLxI4  =  RVCxLA ( IVSxSCTl! *RVCxLO ( IVSxSCT3 ) -RVCxLA t IVSxSCT 
#*RVCxLO ( IVSXSCT2 ) 

RTLxI 5  =  RVCxLA (IVSXSCT3) «RVCxLO ( IVSxSCTl ) -RVCxLA I IVSxSCT 
#«RVCxLO( IVSXSCT3) 

RTLxD 5  =  RTLxI 3  *  RTLxI 4  -  RTLxI 5 

IVLxIN  and  FIN  are  used  to  get  INTERP  to  operate  only  on  wna 
is  needed  to  do  the  calculations  for  the  D  4  E  recicns. 

IVLxIN  =*  1 
IVLxFIN  =  1 

CALL  INTER?  < IVLxIN .  IVLxFIN) 

RVCxFB (1)  =  RVCXA5 1 1) -*-RVCx35 ( 1 ) «RVCxLAI-RVCxE5 i 1 ;  "RVLxLCI 
END  IF 

IF  (RTLxK.LE.98.ODOO)  THEN 
The  upper  D  layer  is  exponential. 

RVLXF93  =  0.64D00  •  RVCxFB(l) 

RVLXK2  =  (DLOG(RVLxF98) -DLOG ( RVCxF6 5 ) ) /33.0DOO 
RVCxXX  =  RVCXF65  *  DEXP(RVLxK2  *  ( RTLxH  -  65.0D00)) 
RVCxALPH  =  RVLxK2  *  RVCxXX  /  RVCxFREQ 
RVCxBETA  =  -RVLXK2  *  RVCxALPH  /  2.QD00 
IF  (IVCxSZ.GT.O)  THEN 
RVCxHBND  *  98.0000 
IVSxJ  *  3 

ELSE 

RVCxHBND  =  65.0D00 
IVSxJ  =  2 
END  IF 

IF  (IFSxN4.NE.lJ  THEN 

RTLxI  =  ((RTLxH  -  S5.0D00)  «  RVCxXX)/ 

#(33. 0D0O  «  RVCxFB (1)  *  RVCxFREQ) 

RVCxETl  =  -RTLxI  *  RVCxB5il)  /  RVCxVI 
RVCXET2  *  RTLxI  »  RVCxESil)  /  RVCxV2 
END  IF 
RETURN 
END  IF 

IF  ( RTLxH. LE.RVCxHL/  THEN 

The  E  layer  is  parabolic,  with  only  foE  as  a  non-const mt 
parameter . 

RVLxHTV  =  (RTLxH  -  110.0D00)  /  20.0000 

RVLxSLV  =  RVCxF3 ( I )  /20.0000 

RVCxXX  =  RVCxFB (1)  «  (1.0D00  -  RVLxHTV* RVLxHTV  i 
RVCxALPH  =  -2.0D00  *  RVLxHTV  *  RVLxSLV  /  RVCxFREQ 
RVCX3ETA  =  RVLxSLV  /  '20.0D00  *  RVCxFREQ) 
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351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365  C 

366  C 

367  C 

368  C 

369 

370 

371 

372 

373 

374 
175 

376 

377 

378 

379  C 

380  C 
331  C 

382  C 

383  C 

384  C 

385  C 

386  C 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396  C 

397 

398 

399 

400 


IF  (IVCxSZ.GT.O!  THEN 
RVCxHBND  =  RVCxHL 
IVSxJ  =  4 

ELSE 

RVCxHBND  =  98.0DOO 
IVSxJ  =  3 
ENDIF 

IF  (IFSXN4.NE.I)  THEN 

RTLxl  =  (1.3D00  -  RVLxHTV * RVLxHTV )  /  RVCxFREQ 
RVCxETl  =  -RTLxl  «  RVCxB5(l)  /  RVCxVl 
RVCxET2  =  RTLxl  »  RVCxE5(l)  /  RVCxV2 
ENDIF 
RETURN 
ENDIF 

Now.  gee  the  rest  of  the  values  needed  to  do  the 
calculations  in  the  FI  &  F2  layers. 

IF  (IFSXN4.SQ.1)  THEN 

RVCxFB ( 2 !  =  RVCxFN ( IVSxSCS , 2 ) 

RVCxFB ( 3 )  =  RVCxFN (IVSxSCS, 3) 

RVCxHB ( 1 )  =  RVCxH ( IVSxSCS, 1) 

RVCxHB ( 2 )  *  RVCxH (IVSxSCS, 2) 

RVCxHB (3)  *  RVCxH ( IVSxSCS , 3) 

ELSE 

IVLxIN  2 
IVLxFIN  =  3 

CALL  INTERP ( IVLxIN.  IVLxFIN) 


The  FI  values  may  be  0  in  this  model  if  the  FI  isn't 

seen  in  the  profile.  This  botches  up  the  interpolation 
by  introducing  an  artificially  large  gradient.  This 
gets  fixed  by  the  next  snippet  of  code. 


IF  ( RVCxH (IVSxSCTl . 1) . EQ . 0 . 0 . OR . RVCxH ( IVSxSCT2 , 1 i . EQ . 
#0 . 0 . OR . RVCxH ( IVSXSCT3 , 1 ) . EQ . 0 . 0 )  THEN 
RVCxA5 ( 2 )  =0.0 
RVCXB5 ( 2 )  =0.0 
RVCxE5 ( 2 )  =0.0 
RVCxA6 i 1 )  =0.0 
RVCXB6 ( 1 )  =0.0 

RVCxE6 ( 1 )  =0.0 

ENDIF 

RVCxFB (2)  =  RVCxA5 ( 2 )  +  RVCxB5 ( 2 i *RVCxLAI 
#+  RVCxE5 ( 2 ) ‘RVLxLOI 

RVCxFB (3)  =  RVCxAS ( 3 )  +  RVCxB5 ( 3 ) «RVCxLAI 
#f  RVCxES ( 3 ) ‘RVLxLOI 


167 


Line#  Source  Line 


401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 
413 

419 

420 

421 

422 

423 

424 

425 

426 

427 
423 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 


RVCxHB ( 1 )  =  RVCxA6 ( 1 )  +  RVCxB6 < 1 ! ‘RVCxLAI 
#+  RVCXE6 (1) ‘RVLxLOI 

RVCxHB (2)  =  RVCxA6 ( 2 )  +  RVCxB6 ( 2 ) ‘RVCxLAI 
#+  RVCXE6 (2) ‘RVLxLOI 

RVCxHB <  3 )  =  RVCxA6 ( 3 )  +  RVCxB6 ( 3 ) « RVCxLAI 
#+  RVCxE6 ( 3) ‘RVLxLOI 
END  IF 
C 

C - 

C  From  here  on,  the  logic  is  complicated,  but  it  follows  the 

C  procedures  in  the  RADAR-C  report.  Basically,  it  must  be 

C  determined  whether  the  FI  is  linear  or  parabolic,  and 

C  where  the  E,  valley,  FI.  F2,  and  topside  profiles  fall 

C  and  where  their  intersection  points  are. 


u 

RVCxXL  a  0 . 3516D00  «  0.3516000  *  RVCxFB ( 1 ) 

RVCxXU  =  0.98D00  *  0.98D00  *  RVCxFB (1) 

RVCxHU  =  RVCxHB (2)  -  RVCxHB ( 3 )  «  DSQRT ( 1 . ODOO  - 
# ( RVCxXU/RVCxFB ( 3 ) ) ) 

RVCxHB 1  =  0.75D00  «  RVCxHB (1) 

RVCxAO  »  (RVCxHU ‘RVCxXL  -  R VCxHL‘ RVCxXU) /( RVCxHU  -  RVCxHL) 
RVCxBO  »  (RVCxXU  -  RVCxXL)  /  (RVCxHU  -  RVCxHL) 

RVCxHTS  *  RVCxHB (2)  +  0 . 25D00 ‘RVCxHB ( 3 ) 

IF  (RVCxFB (2) .LE. RVCxXU)  THEN 
IVCxCASE  =  1 
GO  TO  20000 
ENDIF 

IF  ( RVCxFB ( 2 ) . GT . RVCxFB ( 3 ) )  GO  TO  10750 
RVCXH2  *  RVCxHB (2)  -  RVCxHB ( 3 )  *  DSQRT ( 1 . ODOO  - 
# (RVCxFB (2) /RVCxFB (3) ) ) 

IF  (RVCxHB (1) .LE.RVCXH2)  GO  TO  10750 
RVCxYS  »  MAX (1. ODOO.  RVCXH2  -  RVCxHBl) 

RVCxSLl  »  RVCxFB (2)  /  RVCxYS 

RVCXSL2  »  2. ODOO  *  RVCxFB ( 3 )  *  (RVCxHB (2)  -  RVCxH2)/ 

# ( RVCxHB ( 3 ) • RVCxHB ( 3 ) ) 

IF  (RVCxSLl .GE.RVCXSL2)  THEN 

RVCxHIL  =  (RVCxHB1«RVCxSL1  +  RVCxAO)/ 

# (RVCxSLl  -  RVCxBO) 

IF  (RVCxHlL.LT. RVCxHU)  THEN 
IVCxCASE  =  3 

ELSE 

IVCxCASE  =  1 
ENDIF 

GO  TO  20000 
ENDIF 

10750  RVCxAl  »  16. ODOO  *  RVCxFB (2)  /  ( RVCxHB ( 1 ) ‘RVCxHB ( 1 ) I 
RVCxBl  *  (32. ODOO  *  RVCxFB (2)  /  RVCxHB (D)  -  RVCxBO 
RVCxCl  *  15. ODOO  •  RVCxFB (2!  +  RVCxAO 
RTLxDl  *  RVCxBl *  RVCxB 1  -  4.  ODOO  *  RVCxAl  •  RVCxCl 
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451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 
463 

469 

470 

471 

472 
47  3 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 
438 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 


IF  (  RTLxDl . LT . 0 . 0D00 )  THEN 
IVCxCASE  =  1 
GO  TO  20000 
END  IF 

RVCxHIP  =  (RVCxBl  -  INTSIGN ( RVCxBl )  *  DSQRT ( RTLxDl / i 

#/ ( 2 . 0D00  «  RVCxAl ) 

RVCxA2  a  ( RVCxFB ( 3 ) / ( RVCxHB ( 3 ! "RVCxHB ( 3 ) ) )  - 
#(16. ODOO  *  RVCxFB (2) / (RVCxHB (1) «RVCxHB ( 1) ) ) 

RVCXB2  =  (32. ODOO  «  RVCxFB ( 2 > /RVCxHB ( 1 ) )  - 
# ( 2 . ODOO  «  RVCxFB (3)  *  RVCxHB ( 2 ) / (RVCxHB ( 3 > * RVCxHB ( 3 ) ) j 
RVCXC2  a  RVCxFB  (  3  )  *  (  i  ( RVCxHB  (  2  )  "RVCxHB  ( 2 )  )  /  ( RVCxHB  (  3  )  « 
#RVCxHB ( 3 ) ) )  -  1.0D00)  -  15. ODOO  "  RVCxFB (2) 

RTLXD2  =»  RVCx32  *  RVCxB2  -  4 .  ODOO  «  RVCxA2  «  RVCxC2 
IF  ( RTLxD2 . LT . 0 . ODOO )  THEN 
IVCxCASE  =  1 
GO  TO  20000 
END  IF 

RVCXHT3  »  (-RVCXB2  INTSIGN  (  RVCxB2  )  *  DSQRT  (  RTLxD2  )  )  / 

# ( 2 . ODOO  «  RVCXA2) 

RVCXHT4  *  (-RVCXB2  -  INTSIGN ( RVCxB2 ) "DSQRT ( RTLxD2 )) / 

# ( 2 . ODOO  *  RVCXA2) 

IF  ( RVCxHIP . LE . RVCxHU)  THEN 

RVCXH2P  =  (RVCxBl  +  INTSIGN ( RVCxBl ) "DSQRT ( RTLxDl )) / 
# ( 2 . ODOO  *  RVCxAl) 

IF  (RVCxH2P.LT. RVCxHU)  THEN 
IVCxCASE  =  5 
GO  TO  20000 
END  IF 

IVCxCASE  *  2 

IF  (RVCxB2.GT.0- ODOO)  THEN 
RVLxTRl  =  RVCXHT4 
RVLXTR2  =  RVCXHT3 
IFCxSN  =  1 

ELSE 

RVLxTRl  =  RVCXHT3 
RVLXTR2  »  RVCXHT4 
IFCxSN  a  -l 
END  IF 

RTLxTH  »  RVLxTRl 

10850  IF  ( RTLxTH. GT . RVCxHU. AND. RTLxTH. LT.RVCxHTS)  THEN 

RVCXHT4  *  RTLxTH 
GO  TO  20000 

END  IF 

IF  ( RTLxTH. EQ.RVLxTR 2)  THEN 
C 

C  Some  diagnostics  that  are  of  the  nature  of.  "The  pro? 

C  can't  reach  this  point,  but..." 

C 

PRINT  ",  '  EXCEEDINGLY  WIERD  CASE:  POINT  #1 ' 

PRINT  ",  '  HT3 : ’ , RVCXHT3 , '  HT4 : ' , RVCXHT4 


ine#  Source  Line 


501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 
513 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 


PRINT  V  '  H5  : ‘ , RVCxH5 , 1  B2  :’.RVCxB2 
PRINT  *,  '  LAT: ' , RVCxLAI / RPCxDR , '  LON:', 

#RVCxLO I /RPCxDR 

PRINT  * .  '  HT5 : ' , RVCxHTS , 1  HU  : ' . RVCxHU 

PRINT  «,  '  HIP: 1 ,RVCxHlP 

STOP 

ELSE 

RTLxTH  =  RVLXTR2 
IFCxSN  =»  - IFCxSN 
GO  TO  10350 
END  IF 
END  IF 

IF  ( RVCXHT3 . LE . RVCxHl P )  THEN 
IVCxCASE  =  1 
GO  TO  20000 
ENDIF 

IF  'RVCxHT3.LT.RVCxHT4. AND. RVCxHT4.LT. RVCxHTS)  THEN 
IVCxCASE  =  4 

ELSE 

C 

C  Another  diagnostic  as  outlined  above. 

C 

PRINT  «.  '  EXCEEDINGLY  WIERD  CASE:  POINT  #2’ 

STOP 
ENDIF 
C 

C  These  routines  continue  the  calculations,  now  that 

C  it  has  been  decided  which  path  to  take. 

C 

20000  IF  ( IVCxCASE. EQ.l)  THEN 

CALL  CASE1 ( RTLxH ,  IVSxJ) 

RETURN 

ELSE  IF  ( IVCxCASE. EQ. 2)  THEN 
CALL  CASE2( RTLxH,  IVSxJ) 

RETURN 

ELSE  IF  ( IVCxCASE. EQ . 3)  THEN 
CALL  CASE3( RTLxH.  IVSxJ) 

RETURN 

ELSE  IF  ( IVCxCASE. EQ. 4)  THEN 
CALL  CASE4 ( RTLxH ,  IVSxJ) 

ELSE 

CALL  CASE5( RTLxH,  IVSxJ) 

ENDIF 

RETURN 

END 


IONOPAR  Local  Symbols 


Name  Class  Type  Size 

IVSXSCT3 . param 

IVSXSCT2 . param 

IVSXSCT1 . param 

IVSXSCS . param 

IFSXG . param 

IFSXN4 . param 

IVSXJ . param 

RVLXLATS . local  REAL*  3  3 

RTLXD2 . locai  REAL*  S  3 

RVLXSLV  .  local  REAL* 8  3 

ITLXA  .  local  INTEGER* 4  4 

ITLXB . local  INTEGER « 4  4 

RVLXF98 . local  REAL*  3  3 

RVLXLONS . local  REAL'S  3 

RVLXK2 . local  REAL*  8  3 

RTLXH  .  local  REAL *3  3 

IVLXIN . local  INTEGER*  4  4 

IVLXFIN  .  local  INTEGER* 4  4 

RVLXTR1  .  local  REAL *8  3 

RVLXTR2  .  local  REAL *8  3 

RTLXTH . local  REAL*  8  3 

IFLXOUT  .  local  INTEGER* 4  4 

RVLXLOI  .  local  REAL* 8  8 

RVLXLATE . local  REAL  *8  8 

RVLXLONE . local  REAL  *8  3 

RTLX1  .  local  REAL *3  8 

RVLXHTV  .  local  REAL *8  8 

RTLXD1 . local  REAL  *8  8 

RVCXET2  .  IONOl  REAL *8  3 

RVCXFB . IONOl  REAL  *3  24 

RVCXHB . IONOl  REAL  *8  24 

RVCXB5 . I0N02  REAL  *8  24 

RVCXB6 . I0N02  REAL  *8  2  4 

RVCXE5 . I0N02  REAL  *8  2  4 

RVCXE6 . I0N02  REAL  *8  24 

RVCXV1 . I0N03  REAL  *8  8 

RVCXV2 . I0N0  3  REAL  *8  8 

RVCXH5 . END  REAL*  8  3 

RVCXFREQ . OTHER  REAL  *8  8 

RVCXL1 . OTHER  REAL  *8  8 

RVCXLOl  .  OTHER  REAL *8  8 

RVCXHBOT . OTHER  REAL  *8  3 

RVCXXI . START  REAL  *3  3 

RVCXYI . START  REAL  *8  3 

RVCXZI . START  REAL'S  3 

RVCXXF . END  REAL  *8  8 
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IONOPAR  Local  Symbols 


Name  Class  Type  Size 

RVCXYF . END  REAL  *8  8 

IVCXSCS  .  TEMP 2  INTEGER* 4  4 

RVCXZF . END  REAL  *3  3 

RVCXK1 . TEMPI  REAL  *8  3 

IVCXSCT1 . TEMP  2  INTEGER  *4  4 

RVCXHL . TEMPI  REAL  *8  3 

IVCXSCT2 . TEMP  2  INTEGER*  4  4 

RVCXXX . I0N03  REAL*  3  3 

IVCXSCT3 . TEMP2  INTEGER  *4  4 

IFCXN4 . TSMP2  INTEGER«4  4 

RVCXXL . VAR1  REAL  *3  3 

RVCXXU . VARi  REAL  *8  3 

IVCXSX . MORE  INTEGER  *4  4 

RVCXAO . VAR1  REAL  *3  3 

IVCXSY . MORE  INTEGER  *4  4 

RVCXHB1  .  VAR2  REAL *8  8 

IFCXSN . RAID  INTEGER  *4  4 

IVCXSZ . MORE  INTEGER  *4  4 

RVCXHU . VAR1  REAL  *8  3 

ICCXN  .  SCPS1  INTEGER«4  4 

RVCXBO . VAR1  REAL  *8  3 

RVCXH2 . VAR2  REAL  *8  3 

RVCXYS . VAR2  REAL*  8  3 

RVCXSL1 . VAR  2  REAL *8  3 

IVCXCASE . I0N03  INTEGER  *4  4 

RVCXSL2  .  VAR2  REAL *3  3 

RVXGRID  .  MAINDAT  REAL *8  43 

RVCXH1L  .  VAR2  REAL *8  3 

RVCXA1 . VAR  3  REAL  *8  3 

RPCXRE . PRAM  REAL  *8  3 

RVCXB1 . VAR3  REAL  *8  3 

RPCXPI . PRAM  REAL*  8  3 

RVCXC1 . VAR3  REAL  *8  3 

RPCXDR . PRAM  REAL  *8  3 

RVCXH1P  .  VAR3  REAL *8  8 

RVCXA2 . VAR  4  REAL  *3  8 

RVCXB2 . VAR  4  REAL  *8  8 

RTLXD5 . TEMP  3  REAL  *8  3 

RVCXC2 . VAR  4  REAL  *8  3 

RVCXHT3  .  VAR 4  REAL *3  3 

RVCXHT4 . VAR 4  REAL  *  3  3 

RVCXHT5  .  VAR 4  REAL* 8  8 

RTLXI3 . TEMP3  REAL  *  3  3 

RTLXI4 . TEMP  3  REAL  *3  8 

RTLXI5 . TEMP3  REAL  *  8  8 
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IONOPAR  Local  Symbols 


Name 

Class 

Type 

Size 

RVCXA5 . 

....  I0N02 

REAL *8 

24 

RVCXA6 . 

....  I0N02 

REAL'S 

24 

RVCXLAI  . 

....  START 

REAL'S 

3 

RVCXLOI  . 

....  START 

REAL'S 

3 

RVCXH2P  . 

....  VAR 3 

REAL'S 

3 

RVCXFN . 

....  SCPS1A 

REAL'S 

43200 

RTCXA  . 

....  PRAM 

REAL *8 

3 

RVCXH  . 

....  SC?  S 1A 

REAL'S 

43200 

RTCXB  . 

....  OTHER 

REAL '8 

3 

RVCXLA . 

....  SCPS1 

REAL'S 

14400 

RTCXC  . 

....  OTHER 

REAL'S 

3 

RVCXLO . 

....  SCPS1 

REAL *3 

14400 

RVCXALPH . 

....  I0N01 

REAL'S 

3 

RVCXBETA . 

....  ICNOl 

REAL'S 

3 

RVCXHBND . 

....  I0N03 

REAL'S 

3 

RVCXF40  . 

....  TEMPI 

REAL'S 

3 

RVCXF65  . 

....  TEMPI 

REAL' 8 

8 

RVCXET1  . 

....  I0N01 

REAL'S 

3 
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me#  Source 


Line 


547 

548  C 

549  C 

550  C 

551  C 

552  C 

553  C 

554  C 

555  C 

556  C 

557  C 

558  C 

559  C 

560  C 

561  C 

562  C 

563  C 

564  C 

565  C 

566  C 

567  C 

568  C 

569  C 

570  C 

571  C 

572  C 

573  C 

574  C 

575  C 

576  C 

577  C 
57  8  C 

579  C 

580  C 
531  C 

582  C 

583  C 

584  C 

585  C 

586  C 

587  C 

588  C 

589 

590 

591  C 

592 

593 

594 

595 

596  C 


SUBROUTINE  INTER? ( IVSxIN ,  IVSxFIN) 


INTERP  --  SUBROUTINE  TO  PERFORM  THE  LATITUDE  AND  LONGITUDE 
INTERPOLATION  REQUIRED  3Y  IONOPAR 

CALLED  3Y :  IONOPAR 


AUTHOR:  MICHAEL  H.  REILLY  &  ERIC  L.  STROBEL 

DATS:  39/01/37 

VERSION:  1.0 


REVISED:  09/01/37  —  VI . 0 .  Initial  revision. 


USES:  IVSxIN  4  IVSxFIN  TO  DETERMINE  WHICH  SETS 

OF  INTERPOLATION  COEFFICIENTS  TO  DO. 

The  interpolation  is  done  as  follovs, 

X  *  A  a*Lat  +  E*Lon,  where  A.  3,  and  E  are  determined 
by  setting  up  the  three  equations  at  the  three  grid 
points  surrounding  the  point  in  question.  These 
equations  are  then  solved  by  use  of  Kramer's  rule. 


RETURNS:  /ION02/  THE  COMMON  3LOCK  CONTAINING  TH 

INTERPOLATION  COEFFICIENTS  i RVCx [A . 3 . E] ' 5 , 
WHERE  A.  3,  AND  E  ARE  AS  ABOVE.  AND  THE  5 
REPRESENTS  A  FREQUENCY  COEFFICIENT  AND  THE  6 
REPRESENTS  A  HEIGHT  COEFFICIENT. 


INTEGER  IVSxIN.  IVSxFIN.  IVCxSCTl.  IVCxSCTD 
INTEGER  IVCxSCT 3 ,  ICCxN,  IVCxSCS .  ITLxl 

REAL* 8  RVCxI 3  .  RVCxI4,  R7C:<I5.  RVC:<D5 
REAL* 8  RVCxFNl 1800 . 3)  ,  RVCxH ( 1800 , 3 5  .  RVCxLA(l300> 
REAL  *  3  RVCxLO ( 1300 )  ,  RVCxA5(3>,  RVCxA5 . 3 i  .  RVCx 35(3) 
REAL  *  3  RVCxB6 ( 3 )  .  RVCxE5<3!,  RVCxE6t3) 
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111  >{> 


Line#  Source  Line 


597  COMMON  /SCPS1/  ICCxN , RVCxLA . RVCxLO 

598  COMMON  /SCPS1A/  RVCxFN, RVCxH 

599  COMMON  /I0N02/  RVCxA5 . RVCxA6 , RVCxB5 , RVCxBS , RVCxE5 , RVCxE6 

600  COMMON  /TEMP2/  IVCxSCS,  IVCxSCTl ,  IVCxSCT2 ,  IVCxSCT3 .  ITLxl 

601  COMMON  /TEMP3/  RVCXI3,  RVCXI4,  RVCXI5,  RVCxDS 

602  C 

603  DO  10000  I  =  IVSxIN ,  IVSxFIN 

604  RVCxA5 ( I )  =  ( RVCxFN ( IVCxSCTl , I ) *RVCxI4  >  RVCxFN ( IVCxSCT2 

605  #*RVCxI5  +  RVCxFN ( IVCxSCT3 , I) *RVCxI3 ) /RVCxDS 

606  RVCxA6 ( I )  =  ( RVCxH ( IVCxSCTl , I ) *RVCxI4  *  RVCxH ( IVCxSCTl , I 

607  #«RVCxI5  +  RVCxH ( IVCXSCT3 . I) *RVCxI3) /RVCx05 

608  RVCxB5 ( I )  =  RVCxFN ( IVCxSCTl , I )« i RVCxLO ( IVCxSCT2 ) -RVCxLO i 

609  #IVCxSCT3  )  )  +■  RVCxFN  ( IVCxSCT2 ,  I )  *  (  RVCxLO  ( IVCxSCT3  )  - 

610  #RVCxLO ( IVCxSCTl ) ) 

611  RVCx35 ( I )  =  ( RVCxB  5  < I )  +  RVCxFN ( IVCxSCT3 , I )*( RVCxLO ( 

612  #IVCxSCTl ) -RVCxLO (IVCXSCT2) ) ) /RVCxDS 

613  RVCxB6 ( I )  =  RVCxH (IVCxSCTl, I) « (RVCxLO (IVCXSCT2) -RVCxLO ( 

614  #IVCxSCT3) )  +  RVCxH (IVCXSCT2, I) * (RVCxLO (IVCXSCT3) - 

615  #RVCxLO ( IVCxSCTl ) ) 

616  RVCxB6 ( I )  =  ( RVCxB6 ( I )  +  RVCxH ( IVCxSCT3 , I ) M RVCxLO ( 

617  #IVCxSCTl ) -RVCxLO ( IVCXSCT2) ) ) /RVCxD5 

618  RVCxES ( I )  =  RVCxFN ( IVCxSCTl. I) * ( RVCxLA < IVCxSCT3 > -RVCxLA ( 

619  #IVCxSCT2)  )  -f  RVCxFN  (IVCxSCT2. 1)  «  ( RVCxLA  ( IVCxSCTl)  - 

620  #RVCxLA ( IVCxSCT3 ) ) 

621  RVCxE5 ( I )  *  ( RVCxE5 ( I )  +  RVCxFN < IVCxSCT3 , I )*( RVCxLA ( 

622  #IVCxSCT2) -RVCxLA (IVCxSCTl) ) ) /RVCxDS 

623  RVCXE6 ( I )  »  RVCxH (IVCxSCTl, I) ■ i RVCxLA (IVCXSCT3) -RVCxLA 

624  #IVCxSCT2) )  ♦  RVCxH ( IVCXSCT2 , I) * (RVCxLA ' IVCxSCTl ) - 

625  #RVCxLA ( IVCXSCT3 ) ) 

626  RVCxE6 ( I )  =  (RVCxE6(I)  -  RVCxH ( I VCXSCT3 , I )•( RVCxLA ( 

627  #IVCxSCT2 ) -RVCxLA ( IVCxSCTl ) ) ) /RVCxD5 

628  10000  CONTINUE 

629  RETURN 

630  END 

INTERP  Local  Symbols 

Name  Class  Type  Size 

IVSXFIN . param 

IVSXIN . param 

I . local  INTEGER*  4  4 

IVCXSCT1 . TEMP  2  INTEGER  *4  4 

IVCXSCT2 . TEMP2  INTEGER*  4  4 

IVCXSCT3 . TEMP 2  INTEGER*  4  4 

ICCXN . SCPS1  INTEGER*  4  4 

IVCXSCS  .  TEMP2  INTEGER* 4  4 

ITLX1  .  TEMP 2  INTEGER *4  4 

RVCXI3 . TEMP  3  REAL  *3  3 
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INTERP  Local  Symbols 


Marne  Class  Type  Size 

RVCXI4 . TEMP  3  REAL*  8  3 

RVCXI5 . TEMP  3  REAL  *8  3 

RVCXD5 . TEMP 3  REAL*  8  3 

RVCXFN . SC?  S 1A  REAL'S  43200 

RVCXH . SCPS1A  REAL « 8  43200 

RVCXLA . SCPS1  REAL  *  3  14400 

RVCXLO . SCPS1  REAL  *  3  14400 

RVCXA5 . I0N02  REAL « 8  2  4 

RVCXA6 . I0N02  REAL'S  2  4 

RVCXB5 . I0N02  REAL'S  2  4 

RVCXB6 . I0N02  REAL'S  24 

RVCXE5 . 10N02  REAL'S  2  4 

RVCXE6 . I0N02  REAL'S  24 
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Line#  Source 


532  SUBROUTINE  CASEli RVSxH.  IVSxJ) 

633  C 

634  C - 

635  C 

636  C  CASE1  —  SUBROUTINE  TO  SORT  OUT  WHERE  IN  HEIGHT  THE  PROGRAM 

637  C  IS  IN  THE  CASE  i  PROFILE 

638  C 

639  C  CALLED  3Y:  IONOPAR 

6  40  C 

541  C  CALLS:  PGVAL .  PGF2 .  PGFB 

642  C 

643  C - 

644  C 

545  C  AUTHOR:  ERIC  L.  STROBEL  i  MICHAEL  H.  REILLY 

646  C 

547  C  DATE:  09/01,37 

648  C 

649  C  VERSION:  1.0 

650  C 

651  C - 

552  C 

653  C  REVISED:  09/01/37  --  VI . 0 .  Initial  revision. 

654  C 

655  C - 

5  56  C 

557  C  USES;  RVSxH  The  current  height. 

658  C 

659  C  To  determine  which  part  of  the  CASE  1  profile  is  being 

660  C  operated  on.  The  CASE  1  profile  consists  of  (above  the  E 

661  C  the  linear  valley,  the  parabolic  FZ,  and  the  topside. 

662  C 

663  C  RETURNS:  IVSxJ  This  helps  distinguisn  which 

664  C  boundary  is  being  approached. 

665  C 

666  C - 

667  C 

668  INTEGER  IVSxJ,  IVCxSZ,  IVCxCASE,  IVCxSX.  IVCxSY 

669  C 

670  REAL  *  8  RVSxH,  RVCxHU .  RVCxHBND ,  RVCxHL ,  RVCxHTo 

671  REAL  *  8  RPCxHTP ,  RPCxPI,  RPCxDR,  RPCxRE 

672  REAL* 8  RVCxVl ,  RVCxV2 .  RVCxXX 

673  REAL* 8  RVCxF40 .  RVCxF65.  RVCxKl,  RVCxXL ,  RVCxXU 

674  REAL  *  3  RVCxA2 .  RVCxB2.  RVCxC2.  RVCXHT3 ,  RVCxHT4 

675  REAL* 3  RVCxLl ,  RVCxLOl ,  RVCxHBOT,  RVCxFREQ ,  RVCxRPI 

676  REAL *8  RVCxHCT .  RTLxi ,  RTLx2 

677  C 

678  COMMON  /PRAM/  RPCxPI.  RPCxDR,  RPCxRE.  RPCxHTP 

679  COMMON  /ION03/  RVCxVl,  RVCxV2 ,  RVCxXX,  IVCxCASE.  RVCxHBND 

680  COMMON  /MORS/  IVCxSX,  IVCxSY.  IVCxSZ 

681  COMMON  /TEMPI/  RVCxF40.  RVCxF65,  RVCxKl,  RVCxHL 
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ine#  Source 


Line 


632 

633 

634 

68  5  C 

636 

637  C 
6  8  8  C 
539  C 
5  90  C 

591 

592 

693 

694 
595 
5  96 
697 
598 

699 

700 

701 

702  C 

703  C 

704  C 

705  C 

706 

707 

708 
7C9 

710 

711 

712 

713 

714 

715 

716 

717  C 
713  C 

719  C 

720  C 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730  C 

731  C 


COMMON  / V AR 1 /  RVCxXL .  RVCxXU .  RVCxHU,  RTLxl .  RTLx2 

COMMON  /VAR4/'  RVCxA2  ,  RVCxB2  .  RVCxC2  .  RVCxHT3  ,  RVCxHT4  ,  RVCxHTS 

COMMON  /OTHER/  RVCxLl , RVCxLOl , RVCxHBOT , RVCxFREQ , RVCxRPL , RVCx 

IF  ( RVSxH . LE . RVCxHU )  THEN 

We  re  in  the  -/alley  region,  so  go  calculate  the  parameters 
from  the  valley  profile. 

CALI  PGVAL (RVSxH) 

I?  (IVCxSZ.GT.O)  THEN 
RVCxHBND  =  RVCxHU 
IVSxJ  =  5 

ELSE 

RVCxHBND  =  RVC.xHL 
IVSXJ  =  4 
ENDI? 

RETURN 
END  IF 

IF  (RVSxH. LE. RVCxHTS)  THEN 

We're  in  the  F2  region,  so  go  calculate  the  parameters 
from  the  F2  profile. 

CALL  PGF2 (RVSxH) 

IF  (IVCxSZ.GT.O)  THEN 
RVCxHBND  *  RVCXHT5 
IVSxJ  *  6 

ELSE 

RVCxHBND  =  RVCxHU 
IVSxJ  =  5 
END  IF 
RETURN 
ENDIF 

IF  \  RVSxH . LE . RPCxHTP )  THEN 

We're  m  the  topside  region,  so  go  calculate  the  parameters 
from  the  topside  profile. 

CALL  PGFB( RVSxH) 

IF  (IVCxSZ.GT.O)  THEN 
RVCxHBND  =  RPCxHTP 
IVSXJ  =  7 

ELSE 

RVCxHBND  =  RVCXHT5 
IVSxJ  =  5 
ENDIF 

ELSE 

We’re  beyond  the  cutoff  of  the  ionosphere. 
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Line#  Source  Line 


732  C 

73 3  IF  ( IVCxSZ. GT.O)  THEN 

734  RVCxHBND  =  RVCxHCT 

735  ELSE 

736  RVCxHBND  =  RPCxHTP 

737  END IF 

738  SNDIF 

739  C 

7 40  C  Take  care  of  things  if  the  ray  is  headed  toward  a 

741  C  boundary  that's  above  the  cutoff  height. 

742  C 

743  IF  ( IVCxSZ . GT . 0 . AND . RVCxHBND . GE . RVCxHCT )  THEN 

744  RVCxHBND  =  RVCxHCT 

745  IVSxJ  =  1 

746  END IF 

747  C 

748  RETURN 

749  END 

CASE1  Local  Symbols 

Name  Class  Type  Size 

IVSXJ . param 

RVSXH . param 

RVCXXX . I0NO3  REAL  *8  3 

RVCXF40 . TEMPI  REAL*  8  3 

RVCXF65  .  TEMPI  REAL *8  8 

RVCXK1 . TEMPI  REAL  *8  3 

R  VC  XXL . VAR1  REAL  *8  8 

RVCXXU . VAR1  REAL  *3  8 

RVCXA2 . VAR4  REAL  *8  3 

RVCXB2 . VAR  4  REAL  *8  3 

RVCXC2 . VAR  4  REAL  *8  8 

RVCXHT3  .  VAR 4  REAL *8  3 

RVCXHT4  .  VAR4  REAL *8  3 

RVCXLI . OTHER  REAL  *  3  3 

RVCXLOl  .  OTHER  REAL *8  8 

RVCXHBOT . OTHER  REAL  *3  3 

RVCXFREQ . OTHER  REAL  *8  8 

RVCXRPI  .  OTHER  REAL* 3  8 

RVCXHCT  .  OTHER  REAL *8  3 

RTLX1 . VAR1  REAL  *  3  3 

RTLX2 . VAR1  REAL  *3  3 

IVCXSZ . MORE  INTEGER  *4  4 

IVCXCASE . I0N03  INTEGER*  4  4 

IVCXSX . MORE  INTEGER  *4  4 

IVCXSY . MORE  INTEGER*  4  4 

RVCXHU . VAR1  REAL  *3  3 
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CASE1  Local  Symbols 


•'lame 

Class 

Type 

Size 

RVCXH8ND .  .  . 

.  I0N03 

REAL *3 

3 

RVCXHL .... 

.  TEMPI 

REAL  *  8 

3 

RVCXHT5  .  .  . 

.  VAR4 

REAL'S 

3 

RPCXHTP  .  .  . 

.  PRAM 

REAL*  8 

S 

RPCXPI .  .  .  . 

.  PRAM 

REAL *8 

8 

RPCXDR .  .  .  . 

.  PRAM 

REAL'S 

3 

RPCXRE.  .  .  . 

.  PRAM 

REAL *8 

8 

R VCX VI .... 

.  I0N03 

REAL'S 

3 

R/CXV2.  .  .  . 

.  I0N03 

REAL'S 

3 
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Line#  Source  Line 


751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 
731 

782 

783 

784 

785 

786 

787 
783 
739 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 


C 

C 

c 

c 

c 


SUBROUTINE  CASE2(RVSxH.  IVSxJ) 


CASE2  —  SUBROUTINE  TO  SORT  OUT  WHERE  IN  HEIGHT  THE  PROGRAM 
IS  IN  THE  CASE  2  PROFILE 


C  CALLED  3Y :  IONOPAR 

C 

C  CALLS:  PGVAL ,  PGF1P.  PGF2 ,  PGFB 

r* 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


AUTHOR : 

ERIC  L 

.  STROBEL  & 

MICHAEL  I- 

I.  REILLY 

DATS: 

09/01/ 

3" 

VERSION: 

1.0 

REVISED: 

09/01/ 

87  --  VI. 0. 

Initial 

revision. 

USES:  RVSxH  The  current  height. 

To  determine  which  part  of  the  CASE  2  profile  is  being 
operated  on.  The  CASE  2  profile  consists  of  (above  the  E ) 
the  linear  valley,  a  parabolic  FI,  the  parabolic  F2, 
and  the  topside. 

RETURNS:  IVSxJ  This  helps  distinguish  which 

boundary  is  being  approached. 


INTEGER  IVSxJ,  IVCxSZ.  IVCxSX.  IVCxSY,  IVCxCASE 
C 

REAL *3  RVSxH,  RVCxHIP,  RVCxHBND ,  RVCxHL ,  RVCXHT4 
REAL-8  RVCXHT5 ,  RPCxHTP ,  RVCxHCT,  RPCxPI,  RPCxDR,  RPCxRE 
REAL *8  RVCxLl ,  RVCxLOl.  RVCxHBOT.  RVCxFREQ ,  RVCxRPI 
REAL- 8  RVCxVl ,  RVCxV2 ,  RVCxXX 

REAL-8  RVCXF40,  RVCxF65.  RVCxKl .  RVCxAl ,  RVCxBl,  RVCxCl 
REAL* 8  RVCXA2,  RVCxB2.  RVCxC2,  RVCxHT3 ,  RTCxA 
C 

COMMON  /PRAM/  RPCxPI,  RPCxDR,  RPCxRE.  RPCxHTP 
COMMON  /OTHER/  RVCxLl .  RVCxLOl ,  RVCxHBOT  ,  RVCxFREQ  ,  R,rCxR?  I  .  RVC 
COMMON  / ION03 /  RVCxVl,  RVCxV2 ,  RVCxXX.  IVCxCASE,  RVCxHBND 
COMMON  /MORE/  IVCxSX.  IVCxSY,  IVCxSZ 
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Line#  Source  Line 


801 

802 

303 

304  C 

305 

806  C 

307  C 

308  C 
809  C 

310 

311 
812 

313 

314 

315 
315 
317 
313 
319 
820 

321  C 

322  C 
823  C 

324  C 

325 
826 
827 

323 

329 

330 

331 

332 

333 

334 

335 

836  C 

837  C 
338  C 
839  C 
340 
841 

342 

343 

344 

345 

346 

847 

848 

849 

850 


COMMON  /TEMPI/  RVCxF40 .  RVCxF65,  RVCxKl .  RVCxHL 
COMMON  /VAR3 /  RVCxAl .  RVCxBl ,  RVCxCl.  RVCxHIP,  RTCxA 
COMMON  /VAR 4/  RVCxA2 ■ RVCxB2 , RVCxC2 , RVCxHT3 , RVCxHT4 , RVCxKTS 

IF  ( RVSxH . LE . RVCxHIP )  THEN 

We're  in  the  valley  region,  so  go  calculate  the  parameters 
from  the  valley  prciile. 

CALL  PGVALt RVSxH) 

I?  (IVCxSZ.GT.O)  THEN 
RVCxHBND  =  RVCxHIP 
IVSxJ  =  5 

ELSE 

RVCxHBND  =  RVCxHL 
IVSxJ  =  4 
ENDIF 
RETURN 
ENDIF 

IF  ( RVSxH . LE . RVCxHT4 )  THEN 

We're  in  the  FI  region,  so  go  calculate  the  parameters 
from  the  FI  profile. 

CALL  PGF1P i RVSxH ) 

IF  (IVCxSZ.GT.O)  THEN 
RVCXHBND  *  RVCXHT4 
IVSxJ  *  6 

ELSE 

RVCxHBND  =  RVCXHIP 
IVSxJ  *  5 
ENDIF 
RETURN 
ENDIF 

IF  ( RVSxH. LE.RVCXHT5)  THEN 

We're  in  the  F2  region,  so  go  calculate  the  parameters 
from  the  F2  profile. 

CALL  PGF2 (RVSxH) 

IF  (IVCxSZ.GT.O)  THEN 
RVCxHBND  =  RVCXHT5 
IVSxJ  *  7 

ELSE 

RVCxHBND  =  RVCXHT4 
IVSxJ  =  6 
ENDIF 
RETURN 
ENDIF 

IF  ( RVSxH. LE.RPCxHTP)  THEN 
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Line#  Source  Line 


351  C 

352  C  We're  in  the  topside  region,  so  go  calculate  the  parameters 

353  C  from  the  topside  profile. 

354  C 

355  CALL  PGFB(RVSxH) 

856  IF  (IVCxSZ.GT.O)  THEN 

357  RVCxHBND  =  RPCxHTP 

358  IVSxJ  *  3 

359  ELSE 

360  RVCxHBND  =  RVCxHTS 

361  IVSxJ  *  7 

862  END IF 

363  ELSE 

864  C 

865  C  We're  beyond  the  cutoff  of  the  ionosphere. 

366  C 

367  IF  (IVCxSZ.GT.O!  THEN 

868  RVCxHBND  *  RVCxHCT 

369  ELSE 

370  RVCxHBND  =  RPCxHTP 

871  END IF 

872  END IF 

873  C 

874  C  Take  care  of  things  if  the  ray  is  headed  toward  a 

875  C  boundary  that's  above  the  cutoff  height. 

876  C 

877  IF  ( IVCXSZ.GT.O. AND. RVCxHBND. GE. RVCxHCT)  THEN 

873  RVCxHBND  »  RVCxHCT 

879  IVSxJ  »  1 

880  END IF 

881  C 

882  RETURN 

883  END 

CASE2  Local  Symbols 

Name  Class  Type  Size 

IVSXJ . pararn 

RVSXH  . . pararn 

RVCXLOl . OTHER  REAL  *  8  8 

RVCXHBOT . OTHER  REAL  *8  8 

RVCXFREQ . OTHER  REAL  *8  3 

RVCXRPI  .  OTHER  REAL *8  3 

RVCXV1 . I0N03  REAL  *8  8 

RVCXV2 . I0N03  REAL  *8  8 

RVCXXX . I0N03  REAL  *3  3 

RVCXF40  .  TEMPI  REAL *8  3 

RVCXF65  .  TEMPI  REAL* 3  8 
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CASE2  Local  Symbols 


Maine  Class  Type 

RVCXK1 . TEMPI  REAL*  8 

RVCXA1 . VAR  3  REAL  *8 

RVCXBi . VAR3  REAL  *8 

RVCXC1 . VAR  3  REAL  *3 

RVCXA2 . VAR  4  REAL  *3 

RVCXB2 . VAR  4  REAL  *3 

RVCXC2 . VAR 4  REAL  *  8 

RVCXHT3  .  VAR 4  REAL* 3 

RTCXA . VAR 3  REAL*  8 

IVCXSZ . MORE  INTEGER  *  4 

IVCXSX . MORE  INTEGER*  4 

IVCXSY . MORS  INTEGER  *4 

IVCXCASE . I0N03  INTEGER*  4 

RVCXH1P  .  VAR3  REAL *3 

RVCXHBND . I0N03  REAL  *8 

RVCXHL . TEMPI  REAL  *8 

RVCXHT4 . VAR  4  REAL *8 

RVCXHT5  .  VAR 4  REAL *8 

RPCXHTP  .  PRAM  REAL *8 

RVCXHCT  .  OTHER  REAL *8 

RPCXPI . PRAM  REAL  *8 

RPCXDR . PRAM  REAL  *8 

RPCXRE . PRAM  REAL*  8 

RVCXL1 . OTHER  REAL  *8 


3 

3 

3 

3 
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Line#  Source  Line 


385  SUBROUTINE  CASE3 (RVSxH,  IVSxJ) 

336  C 


333 

389 

390 
891 

392 

393 

394 

395 

396 

397 

398 

399 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 


C 

C  CASE3  —  SUBROUTINE  TO  SORT  OUT  WHERE  IN  HEIGHT  THE  PROGRAM 
C  IS  IN  THE  CASE  3  PROFILE 


r 

c 


c 


CALLED  BY:  IONOPAR 

CALLS:  PGVAL ,  PGF1L.  PGF2,  PGF3 


C 


C 

c 

c 

c 

c 

c 

c 

c 

c 

r 

c 

c 

c 

c 

c 

c 


c 

c 

c 


AUTHOR : 

ERIC  L. 

STROBEL  St  MICHAEL  H.  REILLY 

DATS: 

09/01/87 

VERSION: 

1.0 

REVISED: 

09/01/87 

—  VI . 0 .  Initial  revision. 

USES: 

RVSxH 

The  current  height. 

To  determine  which  part  of  the  CASE  3  profile  is  bei 
operated  on.  The  CASE  3  profile  consists  of  '.above  the 
the  linear  valley,  a  linear  FI,  me  parabolic  F2. 
and  the  topside. 

RETURNS : 

IVSxJ 

This  helps  distinguish  which 
boundary  is  being  approacned. 

c 

c 


INTEGER  IVSxJ,  IVCxSZ,  IVCxCASE,  IVCxSX.  IVCxSY 

REAL* 8  RVSxH ,  RVCxHIL.  RVCxHBND ,  RVCxHL ,  RVCxH2 
REAL* 8  RVCXHT5,  RPCxHTP .  RVCxHCT,  RPCxPI ,  RPCxDR 
REAL *8  RPCxRE,  RVCxLl ,  RVCxLOl ,  RVCxHBOT ,  RVCxFREQ 
REAL  *  8  RVCxRPI ,  RVCxVl ,  RVCxV2 ,  RVCxXX,  RVCxF40 ,  R\'CxF65 
REAL *3  RVCxHBl ,  RVCxYS .  RVCxSLl ,  RVCxSL2 ,  RVCxA 2,  RVCxK 1 
REAL *3  RVCxB 2 ,  RVCxC2,  RVCxHT3 ,  RVCxHT4 

COMMON  /PRAM/  RPCxPI,  RPCxDR.  RPCxRE,  RPCxHTP 
COMMON  /OTHER/  RVCxLl , RVCxLOl , RVCxHBOT , RVCxFREQ , RVCxRP I . R 
COMMON  / ION03 /  RVCxVl,  RVCxV2 ,  RVCxXX.  IVCxCASE.  RVCxHBND 
COMMON  /MORE/  IVCxSX,  IVCxSY,  IVCxSZ 
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ine#  Source 


me 


935 

936 

937 

938  C 

939 

940  C 

941  C 

942  C 

943  C 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955  C 

956  C 

957  C 

958  C 

959 

960 

961 

962 

963 

964 

965 

966 

967 
963 

969 

970  C 

971  C 

972  C 

973  C 

974 

975 

976 

977 
973 

979 

980 

981 
932 

983 

984 


COMMON  /TEMPI/  RVCXF40 .  RVCxFS5,  RVCxKl .  RVCxHL 

COMMON  /VAR2/  RVCxHBl . RVCxH2 , RVCxYS , RVCxSLl , RVCXSL2 . RVCxHIL 

COMMON  /VAR4/  RVCxA2 , RVCXB2 , RVCxC2 , RVCXHT3 . RVCxHT4 . RVCxHTS 

1?  'RVSxH.LE. RVCxHIL)  THEN 

We're  m  Che  valley  region,  so  go  calculate  the  parameters 
from  the  valley  profile. 

CALL  PGVAL ( RVSxH ) 

I?  i IVCxSZ .GT. 0)  THEN 
RVCxHBND  =  RVCxHIL 
IVSxJ  =  5 

ELSE 

RVCxHBND  =  RVCxHL 
IVSxJ  =  4 
END  IF 
RETURN 
END  IF 

IF  ( RVSxH. LS.RVCXH2!  THEN 

We're  in  the  FI  region,  so  go  calculate  the  parameters 
from  the  FI  profile. 

CALL  ?GF1L( RVSxH) 

IF  ( IVCxSZ. GT.0)  THEN 
RVCxHBND  =  RVCxH2 
IVSxJ  *  6 

ELSE 

RVCxHBND  =  RVCxHIL 
IVSxJ  =  5 
END  IF 
RETURN 
END  IF 

IF  (RVSxH.LE. RVCxHTS,  THEN 

We're  in  the  F2  region,  sc  go  calculate  the  parameters 
from  the  F2  profile. 

CALL  PGF2 (RVSxH) 

IF  ( IVCxSZ. GT.0)  THEN 
RVCxHBND  =  RVCxHTS 
IVSxJ  =  7 

ELSE 

RVCxHBND  =  RVCxH2 
IVSxJ  =6 
END  IF 
RETURN 
END  IF 

IF  ( RVSxH. LE.RPCxHTP)  THEN 
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Line#  Source  Line 


985  C 

986  C  We're  in  the  topside  region,  so  go  calculate  the  parameters 

987  C  from  the  topside  profile. 

988  C 

989  CALL  PGF3 ( RVSxH ) 

990  IF  ; IVCxSZ. GT.O)  THEN 

991  RVCxHBND  =  RPCxHTP 

992  IVSxJ  =  3 

993  ELSE 

994  RVCxHBND  =  RVCxHTS 

995  IVSxJ  =  7 

996  END IF 

997  ELSE 

998  C 

999  C  We're  beyond  the  cutoff  of  the  ionosphere. 

1000  C 

1001  IF  ( IVCxSZ . GT . 0 )  THEN 

1002  RVCxHBND  =  RVCxHCT 

1003  ELSE 

1004  RVCxHBND  =  RPCxHTP 

1005  END IF 

1006  END  IF 

1007  C 

1008  C  Take  care  of  things  if  the  ray  is  headed  toward  a 

1009  C  boundary  that's  above  the  cutoff  height. 

1010  C 

1011  IF  ( IVCxSZ. GT.O. AND. RVCxHBND. GE. RVCxHCT)  THEN 

1012  RVCxHBND  *  RVCxHCT 

1013  IVSxJ  *  1 

1014  END IF 

1015  C 

1016  RETURN 

1017  END 

CASE3  Local  Symbols 

Name  Class  Type  Size 

IVSXJ . param 

RVSXH . param 

RVCXHCT . OTHER  REAL  *  3  3 

RPCXPI . PRAM  REAL  *8  3 

RPCXDR . PRAM  REAL  *8  3 

RPCXRE . PRAM  REAL  *8  8 

RVCXL1 . OTHER  REAL*  8  8 

RVCXLOl  .  OTHER  REAL *8  3 

RVCXHBOT . OTHER  REAL  *8  8 

RVCXFPEQ . OTHER  REAL  *8  3 

RVCXRPI . OTHER  REAL  *  8  8 
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CASE3  Local  Symbols 


Marne 

Class 

Type 

Size 

RVCXV1 .  . 

.  I0N03 

REAL *8 

3 

RVCXV2 .  . 

.  I0M03 

REAL *3 

3 

RVCXXX •  . 

.  I0N03 

REAL  *  8 

3 

RVCXF40  . 

.  TEMPI 

REAL  *  3 

3 

RVCXFS5  . 

.  TEMPI 

REAL  *  8 

8 

RVCXHB1  . 

.  VAR  2 

REAL  *  3 

3 

RVCXYS .  . 

.  VAR2 

REAL “3 

3 

RVCXSL1  . 

.  VAR2 

REAL*  8 

3 

RVCXSL2  . 

.  VAR  2 

REAL*  8 

3 

RVCXA2.  . 

.  VAR  4 

REAL *3 

3 

RVCXK1 .  . 

.  TEMPI 

REAL  *  3 

3 

RVCX82 .  . 

.  VAR  4 

REAL'S 

3 

RVCXC2 .  . 

.  VAR  4 

REAL  *  3 

3 

RVCXHT3  . 

.  VAR  4 

REAL'S 

3 

RVCXHT4  . 

.  VAR  4 

REAL'S 

3 

IVCXSZ.  . 

.  MORE 

INTEGER' 4 

4 

IVCXCASE . 

.  I0N03 

INTEGER' 4 

4 

IVCXSX.  . 

.  MORE 

INTEGER' 4 

4 

IVCXSY .  . 

.  MORE 

INTEGER' 4 

4 

RVCXH1L  . 

.  VAR  2 

REAL'S 

3 

RVCXHBND . 

.  I0N03 

REAL'S 

3 

RVCXHL .  . 

.  TEMPI 

REAL'S 

8 

RVCXH2 .  . 

.  VAR  2 

REAL'S 

3 

RVCXHT5  . 

.  VAR  4 

REAL '8 

3 

RPCXHTP  . 

.  PRAM 

REAL'S 

3 

Line#  Source  Line 

1019  SUBROUTINE  CASE4 (RVSxH,  IVSxJ) 

1020  C 

1021  C - 

1022  C 

1023  C  CASE-1  —  SUBROUTINE  TO  SORT  OUT  WHERE  IN  HEIGHT  THE  PROGRAM 

1024  C  IS  IN  THE  CASE  4  PROFILE 

1025  C 

1026  C  CALLED  BY:  IONOPAR 

1027  C 

1028  C  CALLS:  PGVAL .  PGF1P .  PGF2  .  PGF3 

1029  C 

1030  C - 

1031  C 

1332  C  AUTHOR:  ERIC  L.  3TROBEL  £  MICHAEL  H.  REILLY 

1033  C 

1334  C  DATE:  39/C1/37 

1035  C 

1036  C  VERSION:  1.0 

1037  C 

1033  C - 

1039  C 

1040  C  REVISED:  09/01/87  --  VI . 0 .  Initial  revision. 

1041  C 

1042  C - 

1043  C 

1044  C  USES:  RVSxH  The  current  height. 

1045  C 

1046  C  To  determine  which  part  of  the  CASE  4  profile  is  bem 

1047  C  operated  on.  The  CASE  4  profile  consists  of  .above  the 

1048  C  the  linear  valley,  a  portion  of  the  F2 .  a  paracolic  FI. 

1049  C  the  rest  of  the  parabolic  F2,  and  the  topside. 

1050  C 

1051  C  RETURNS:  IVSxJ  This  helps  distinguish  which 

1052  C  boundary  is  being  approached. 

1053  C 

1054  C - 

1055  C 

1056  INTEGER  IVSxJ,  IVCxSZ,  IVCxCASE,  IVCxSX.  IVCxSY 

1057  C 

1058  REAL *8  RVSxH.  RVCxHU,  RVCxHBND ,  RVCxHL.  RVCxHT3 .  RVCxHT4 

1059  REAL* 8  RVCxHT5,  RPCxHTP ,  RVCxHCT,  RPCxPI.  RPCxDR ,  RPCxRE 

1060  REAL *8  RVCxLl .  RVCxLOl .  RVCxHBOT.  RVCxFREQ .  RVCxRFI 

1061  REAL *8  RVCxVl ,  RVCxV2 ,  RVCxXX.  RVCXA2 .  RVCxB2 ,  RVCxCl 

1062  REAL *3  RVCxF40 .  RVCxF65.  RVCxKl ,  RVCxXL,  RVCxXU 

1063  REAL* 8  RTLxl ,  RTLx2 

1064  C 

1065  COMMON  /PRAM/  RPCxPI,  RPCxDR,  RPCxRE,  RPCxHTP 

1066  COMMON  /OTHER/  RVCxLl , RVCxLOl , RVCxHBOT , RVCxFREQ , RVCxR? I . RV ZxH 37 

1067  COMMON  /ION03/  RVCxVl,  RVCxV2 ,  RVCxXX.  IVCxCASE.  RVCxHBND 

1068  COMMON  /MORE/  IVCxSX,  IVCxSY,  IVCxSZ 
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tT>  111 


Line#  Source  Line 


1069 

1070 

1071 

1072  C 

1073 

1074  C 

1075  C 

1076  C 

1077  C 

1078 

1079 

1080 
1031 
1082 
1083 
10  3  4 

1085 

1086 
1087 
1083 

1089  C 

1090  C 

1091  C 

1092  C 
_;93  c 

1094  C 

1095 

1096 

1097 

1098 

1099 

1100 
1101 
1102 

1103 

1104 

1105 

1106  C 

1107  C 

1108  C 

1109  C 

1110 
1111 
1112 

1113 

1114 

1115 

1116 
1117 
1113 


COMMON  /TEMPI/  RVCXF40 ,  RVCxFSS.  RVCxKl .  RVCxHL 

COMMON  / VAR1 /  RVCxXL ,  RVCxXU,  RVCxHU.  RTLxl ,  RTLx2 

COMMON  /VAR  4 /  RVCxA2 . RVCxB2 . RVCxC2 . RVCxHT3 , RVCxHT4 . RVCxHTS 

IF  (RVSxH. LE. RVCxHU)  THEN 

We're  in  the  valley  region,  so  go  calculate  the  parameters 
from  the  valley  profile. 

CALL  PGVAL i RVSxH ) 

IF  ! IVCxSZ . GT . 0 )  THEN 
RVCxHBND  =  RVCxHU 
IVSxJ  =  5 

ELSE 

RVCxHBND  =  RVCxHL 
IVSxJ  =  4 
SNDIF 
RETURN 
SNDIF 

IF  i RVSxH. LE.RVCXHT3)  THEN 

A  portion  of  the  F2  parabola  is  visible  under  the  FI  layer. 
(It's  unknown  how  likely  this  is,  but  it  at  least  appears 
to  be  possible  in  the  RADAR-C  model,  so  it  is  safest  to 
include  code  for  the  possibility.) 

CALL  ?GF2 (RVSxH) 

IF  (IVCxSZ.GT.O)  THEN 
RVCxHBND  »  RVCXHT3 
IVSxJ  =  6 

ELSE 

RVCxHBND  =  RVCxHU 
IVSxJ  =  5 
SNDIF 
RETURN 
ENDIF 

IF  ; RVSXH. LE.RVCXHT4)  THEN 

We're  in  the  FI  region,  so  go  calculate  the  parameters 
from  the  FI  profile. 

CALL  PGF1P (RVSxH) 

IF  (IVCXSZ.GT.O)  THEN 
RVCxHBND  =  RVCXHT4 
IVSxJ  a  7 

ELSE 

RVCxHBND  =  RVCXHT3 
IVSxJ  a  6 
ENDIF 
RETURN 


190 


Line# 

1119 

1120 
1121 
1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 
1161 
1162 

1163 

1164 

1165 

1166 

1167 

1168 


Source  Line 

ENDIF 

IF  ( RVSxH . LE . RVCxHT5 )  THEN 
C 

C  We're  in  the  more  ordinary  portion  of  the  F2  region,  so  go 

C  calculate  the  parameters  from  the  F2  profile. 

C 

CALL  PGF2 (RVSxH) 

IF  (IVCxSZ.GT.O)  THEN 
RVCxHBND  =  RVCXHT5 
IVSxJ  =  3 

ELSE 

RVCxHBND  =  RVCXHT4 
IVSxJ  =  7 
ENDIF 
RETURN 
ENDIF 

IF  ( RVSxH . LE . RPCxHTP )  THEN 
C 

C  We're  in  the  topside  region,  so  go  calculate  the  parameters 

C  from  the  topside  ■  prof ile . 

C 

CALL  PGFB (RVSxH) 

IF  (IVCxSZ.GT.O)  THEN 
RVCxHBND  =  RPCxHTP 
IVSxJ  =  9 

ELSE 

RVCxHBND  =  RVCXHT5 
IVSxJ  =  8 
ENDIF 

ELSE 

C 

C  We're  beyond  the  cutoff  of  the  ionosphere. 

C 

IF  (IVCxSZ.GT.O)  THEN 
RVCxHBND  =  RVCxHCT 

ELSE 

RVCxHBND  =  RPCxHTP 
ENDIF 
ENDIF 
C 

C  Take  care  of  things  if  the  ray  is  headed  toward  a 

C  boundary  that's  above  the  cutoff  height. 

C 

IF  (IVCxSZ.GT.O. AND. RVCxHBND. GE. RVCxHCT)  THEN 
RVCxHBND  =  RVCxHCT 
IVSxJ  =  1 
ENDIF 
C 

RETURN 

END 
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CASE4  Local  Symbols 


Name  Class  Type  Size 

IVSXJ . param 

RVSXH . param 

RVCXHU . VAR1  REAL  *8  3 

RVCXHBND . I0NQ3  REAL  *  8  8 

RVCXHL . TEMPI  REAL  *  8  3 

RVCXHT3  .  VAR 4  REAL* 3  3 

RVCXHT4  .  VAR 4  REAL'S  3 

RVCXHT5  .  VAR 4  REAL *3  3 

RPCXHTP  .  PRAM  REAL* 8  8 

RVCXHCT  .  OTHER  REAL • 8  3 

RPCXPI . PRAM  REAL*  3  3 

RPCXDR . PRAM  REAL  *  3  8 

RPCXRE . PRAM  REAL -8  8 

RVCXL1 . OTHER  REAL  *8  8 

RVCXLOl  .  OTHEP  REAL *8  8 

RVCXHBOT . OTHEI  REAL  *3  8 

RVCXFREQ . .  OTHEP.  REAL  *8  8 

RVCXRPI  .  OTHER  REAL *8  8 

RVCXV1 . I0N03  REAL'S  3 

RVCXV2 . I0N03  REAL  *3  3 

RVCXXX . I0N03  REAL  *8  3 

RVCXA2 . VAR  4  REAL  *8  8 

RVCXB2 . VAR  4  REAL  *8  3 

RVCXC2 . VAR 4  REAL « 3  8 

RVCXF40  .  TEMPI  REAL'S  8 

RVCXF65  .  TEMPI  REAL *8  3 

RVCXK1 . TEMPI  REAL  *8  3 

RVCXXL . VAR1  REAL  *8  3 

RVCXXU . VAR1  REAL  *8  3 

RTLX1 . VAR1  REAL'S  3 

RTLX2 . VAR1  REAL' 3  3 

IVCXSZ . MORE  INTEGER  *4  4 

IVCXCASE . I0N03  INTEGER' 4  4 

IVCXSX . MORE  INTEGER  *4  4 

IVCXSY . MORE  INTEGER  *4  4 
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Line# 

I 

Source  Line 

1170 

SUBROUTINE  CASE5(RVSxH.  IVSxJ) 

1171 

117V 

C 

11/4  u 
1173  C 


1174  C  CASE5  --  SUBROUTINE  TO  SORT  CUT  WHERE  IN  HEIGHT  THE  PROGRAM 
11-5  C  IS  IN  THE  CASE  5  PROFILE 

1176  C 

1177  C  CALLED  3Y:  IONOPAR 

1173  C 

1179  C  CALLS:  PGVAL ,  PGF1P,  PGF2.  PGF3 

1130  C 

1131  C - 

1132  C 

1133  C  AUTHOR:  ERIC  L.  STROBEL  i  MICHAEL  H.  REILLY 

1134  C 

1135  C  DATE:  09/01/37 

1136  C 

1137  C  VERSION:  1.0 

1133  C 

1139  C - 

1190  C 

1191  C  REVISED:  09/01/37  —  VI . 0 .  Initial  revision. 

1192  C 

1193  C - 

1194  C 

1195  C  USES:  RVSxH  The  current  height. 

1196  C 

1197  C  To  determine  which  part  of  the  CASE  5  profile  is  beir. 

1198  C  operated  on.  The  CASE  5  profile  consists  of  (above  the 

1199  C  the  linear  valley,  a  parabolic  FI,  an  additional  valley 

1200  C  segment,  the  parabolic  F2.  and  the  topside. 

1201  C 

1202  C  RETURNS:  IVSxJ  This  helps  distinguish  wr.i on 

1203  C  boundary  is  being  approac.ned. 

1204  C 

1205  C - 

1206  C 

1207  INTEGER  IVSxJ,  IVCxSZ,  IVCxCASE.  IVCxSX.  IVCxSY 

1208  C 

1209  REAL  *  8  RVSxH,  RVCxHU ,  RVCxHBND  ,  RVCx.HL  .  RVCXHT2  .  RVCxKT4 

1210  REAL  *  8  RVCXHT5,  RPCxHTP,  RVCxHCT ,  RPCxPI,  RPCxDR ,  RPCx.RE 

1211  REAL  *  8  RVCxLl.  RVCxLOl.  RVCxHBOT,  RVCxFREQ ,  RVCxRPI 

1212  REAL  *  8  RVCxVl ,  RVCxV2 ,  RVCxXX,  RVCxA2 ,  RVCxB2,  RVCxCD 

1213  REAL* 8  RVCxF 40 ,  RVCxF6  5.  RVCxKl ,  RVCxXL .  RVCxXU 

1214  REAL  *  3  RVCxAl ,  RVCxBl .  RVCxCl ,  RVCxHIP,  RVCxH2P 

1215  REAL* 3  RTLxl ,  RTLx2 

1216  C 

1217  COMMON  /PRAM/  RPCxPI,  RPCxDR,  RPCxRE .  RPCxHTP 

1213  COMMON  /OTHER/  RVCxLl , RVCxLOl , RVCxHBOT. RVCxFREQ , RVCxRPI . RVCxHCT 

1219  COMMON  / I0NO3 /  RVCxVl.  RVCxV2 .  RVCxXX,  IVCxCASE,  RVCxHBND 
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to  n 


me#  Source  Line 


1220 

1221 

1222 

1223 

1224 

1225  C 

1226 

1227  C 

1228  C 

1229  C 

1230  C 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242  C 

1243  C 

1244  C 

1245  C 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257  C 

1258  C 

1259  C 

1260  C 

1261  C 

1262 

1263 

1264 

1265 

1266 
1267 
1263 
1269 


COMMON  /MORE/  IVCxSX.  IVCxSY.  IVCxSZ 

COMMON  /TEMPI/  RVCxF40.  RVCxF65,  RVCxKl .  RVCxHL 

COMMON  / VAR1 /  RVCxXL ,  RVCxXU ,  RVCxHU .  RTLxi .  RTLx2 

COMMON  / VAR3/  RVCxAl .  RVCxBl.  RVCxCl.  RVCxHIP .  RVCxH2P 

COMMON  /VAR4 /  RVCXA2 . RVCxB2 . RVCxC2 . RVCXHT3 . RVCxHT4 . RVCXHT5 

IF  i RVSxH . LE . RVCxHIP )  THEN 

We're  in  the  valley  region,  so  go  calculate  the  parareters 
from  the  valley  profile. 

CALL  ?GVAL( RVSxH! 

IF  ( IVCxSZ . GT . 0 !  THEN 
RVCxHBND  =  RVCxHIP 
IVSxJ  =  5 

ELSE 

RVCxHBND  =  RVCxHL 
IVSxJ  =  4 
ENDIF 
RETURN 
ENDIF 

IF  ( RVSxH. LE.RVCXH2P)  THEM 

We're  in  the  FI  region,  so  go  calculate  the  parameters 
from  the  FI  profile. 

CALL  PGF1P (RVSxH) 

IF  ( IVCxSZ. GT. 0)  THEN 
RVCxHBND  »  RVCXH2P 
IVSxJ  *  5 

ELSE 

RVCxHBND  =  RVCxHIP 
IVSxJ  =  5 
ENDIF 
RETURN 
ENDIF 

IF  ( RVSxH. LE. RVCxHU!  THEN 

Surprise!  A  portion  of  the  valley  profile  is  seen  above 
the  FI.  And  yes,  this  really  can  in  fact  happen  in  the 
RADAR-C  model. 

CALL  PGVAL( RVSxH) 

IF  ( IVCxSZ . GT . 0 )  THEN 
RVCxHBND  =  RVCxHU 
IVSxJ  =  7 

ELSE 

RVCxHBND  =  RVCXH2P 
IVSxJ  =  6 
ENDIF 
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Line#  Source  Line 


1270 

1271 

1272 

1273  C 

1274  C 
127  5  C 

1276  C 

1277 
1273 

1279 

1280 
1231 
1282 

1233 

1234 
1285 

1236 

1237 

1288  C 

1289  C 

1290  C 

1291  C 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301  C 

1302  C 

1303  C 

1304 

1305 

1306 

1307 

1308 

1309 

1310  C 

1311  C 

1312  C 

1313  C 

1314 

1315 

1316 

1317 

1318  C 

1319 


RETURN 

ENDIF 

IF  ( RVSxH . LE . RVCxHTS )  THEN 

We're  in  the  F2  region,  so  go  calculate  the  parameters 
from  the  F2  profile. 

CALL  PGF2 (RVSxH) 

IF  i  IVCxSZ. GT. 0)  THEN 
RVCxHBND  =  RVCXHT5 
IVSxJ  =  3 

ELSE 

RVCxHBND  =  RVCxHU 
IVSxJ  =  7 
ENDIF 
RETURN 
ENDIF 

IF  ( RVSxH. LE.RPCxHT?)  THEN 

We're  in  the  topside  region,  so  go  calculate  the  parameters' 
from  the  topside  profile. 

CALL  PGFB( RVSxH) 

IF  ( IVCxSZ . GT . 0 )  THEN 
RVCxHBND  *  RPCxHTP 
IVSxJ  *  9 

ELSE 

RVCxHBND  *  RVCxHTS 
IVSxJ  =  3 
ENDIF 

ELSE 

We're  beyond  the  cutoff  of  the  ionosphere. 

IF  ( IVCxSZ. GT.0)  THEN 
RVCxHBND  =  RVCxHCT 

ELSE 

RVCXHBND  =  RPCXHTP 
ENDIF 
ENDIF 

Take  care  of  things  if  the  ray  is  headed  toward  a 
boundary  that's  above  the  cutoff  height. 

IF  ( IVCxSZ. GT.0. AND. RVCxHBND. GE. RVCxHCT)  THEN 
RVCxHBND  =  RVCxHCT 
IVSxJ  *  1 
ENDIF 

RETURN 
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Line#  Source  Line 


1320  END 

CASE5  Local  Symbols 

Name  Class  Type  Sica 

IVSXJ . param 

RVSXH . param 

IVCXSZ . MORS  INTEGER*  4  4 

IVCXCASE . I0N03  INTEGER*4  4 

IVCXSX . MORE  INTEGER  *4  4 

IVCXSY . MORE  INTEGER  *4  4 

RVCXHU . VAR1  REAL- 8  8 

RVCXHBND . I  OHO  3  REAL  *8  3 

RVCXHL . TEMPI  REAL*  8  3 

RVCXHT3  .  VAR 4  REAL *3  3 

RVCXHT4  .  VAR 4  REAL *3  8 

RVCXHT5  .  VAR 4  REAL *8  3 

RPCXHTP  .  PRAM  REAL *8  8 

RVCXHCT  .  OTHER  REAL -8  3 

RPCXPI . PRAM  REAL  *8  8 

RPCXDR . PRAM  REAL  *8  8 

RPCXRE . PRAM  REAL  *3  8 

RVCXL1 . OTHER  REAL  *3  8 

RVCXLOl  .  OTHER  REAL *8  8 

RVCXHBOT . OTHER  REAL  *8  3 

RVCXFREQ . OTHER  REAL  *8  8 

RVCXRPI  .  OTHER  REAL *8  8 

RVCXV1 . I0N03  REAL  *8  3 

RVCXV2 . I0N03  REAL -3  3 

RVCXXX . I0NO3  REAL*  8  8 

RVCXA2 . VAR  4  REAL  *8  3 

RVCXB2 . VAR  4  REAL  *8  3 

RVCXC2 . VAR4  REAL  *8  3 

RVCXF40  .  TEMPI  REAL *8  3 

RVCXF65  .  TEMPI  REAL* 8  3 

RVCXK1 . TEMPI  REAL  *3  3 

RVCXXL . VAR1  REAL  *8  3 

RVCXXU . VAR1  REAL*  8  8 

RVCXA1 . VAR3  REAL  *8  3 

RVCXB1 . VAR  3  REAL  *3  3 

RVCXC1 . VAR3  REAL*  8  8 

RVCXH1P . .  VAR3  REAL  *  3  3 

RVCXH2P  .  VAR3  REAL* 8  3 

RTLX1 . VAR1  REAL  *3  3 

RTLX2 . VAR1  REAL  *8  3 
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ine#  Source  Line 


1323 

1324  C 

1325  C 

1326  C 
132?  C 
1323  C 

1329  C 

1330  C 

1331  C 

1332  C 

1333  C 

1334  C 

1335  C 
13  36  C 
1337  C 
1333  C 

1339  C 

1340  C 

1341  C 

1342  C 

1343  C 

1344  C 

1345  C 

1346  C 

1347  C 

1348  C 

1349  C 

1350  C 

1351  C 

1352  C 

1353  C 

1354  C 

1355  C 

1356  C 

1357  C 
1353  C 

1359  C 

1360  C 

1361  C 

1362  C 

1363  C 

1364  C 

1365  C 

1366  C 

1367  C 
1363  C 

1369  C 

1370 

1371 

1372  C 


SUBROUTINE  PGVAL(RVSxH) 


PGVAL  —  SUBROUTINE  to  calculate  the  ionospheric  parameters 
for  the  linear  valley  profile. 


CALLED  BY:  CASE!,  CASE 2 .  CASE3 ,  CASE4 .  CASES 


AUTHOR : 

MICHAEL  H. 

REILLY  &  ERIC  L.  STRCBEL 

DATE : 

09-01/37 

VERSION: 

1.0 

REVISED: 

09/01/37  - 

-  VI . 0 .  Initial  revision. 

USES: 

RVSxH 

The  current  heiqht. 

To  calculate  the  A.  Ml.  and  M2  parameters,  as  well  as  the 
plasma  frequency  squared  XX.  For  more  details,  see  the 
Radio  Science  paper  and  the  RADAR-C  report  referred  to 
in  the  documentation. 

RETURNS : 

RVCxALPH 

A  coef.  in  the  index  of 
refraction . 

RVCxETl 

A  coef.  in  the  index  cf 
refraction. 

RVCXET2 

A  coef.  in  the  index  of 
refraction . 

RVCxXX 

The  plasma  frequency  squared 

INTEGER  IFCXN4.  IVCxSCS ,  IVCxSCTl .  IVCxSCT2 .  IVCxSCTj 
INTEGER  ITCxA 
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Line#  Source  Line 


1373  REAL* 8  RVSxH.  RVCxXX.  RVCxAO.  RVCxBO .  RVCxALPH ,  RVCxFREQ 

1374  REAL* 8  RVLxHUXE ,  RVCxHB ( 3 )  .  RVCxFB ( 3 )  ,  RVCxHU,  RVLxHTR 

137  5  REAL  *  3  RVCxHT3 .  RVCxHL .  RVLxXXXE ,  RVLxHUX2 ,  RVLxXXH2 

1376  REAL* 8  RVLxXXX2 .  RVLXHUY2 .  RVLxXXY2,  RVCxETl .  RVCxB5l3) 

1377  REAL* 3  RVCxB6(3).  RVCxVl ,  RVCxET2 .  RVCx£5  < .3 )  ,  RVCxES t 3 ) 

1373  REAL *3  RVCxV2 ,  RVCxLl .  RVCxLOi ,  RVCxHBOT 

1379  REAL'S  RVCxSETA.  RVCxA5 i 3 »  .  RVCxA6 i 3 ) .  RVCxF40 .  RVCxC 2 

1380  REAL  *  3  RVCXF55.  RVCxKl .  RVCxXL.  RVCxXU.  RVCxA2 ,  RVCxB2 

1381  REAL  *  8  RTCxA ,  RTCxB.  RTCxC ,  RTCxD ,  RTCxE 

1382  C 

1383  COMMON  /OTHER/  RVCxLl . RVCxLOi . RVCxHBOT . RVCxFREQ , RTCxA , RTCxB 

1334  COMMON  /I0NO1/  RVCxALPH . RVCxBETA , RVCxETl , RVCxET2 , RVCxFB . RVCxHB 

1385  COMMON  /IONC2/  RVCxA5 . RVCxA6 . RVCxB5 , RVCxB6 . RVCxES . RVCxE6 

1386  COMMON  /I0N03/  RVCxVl.  RVCxV2 ,  RVCxXX,  ITCxA,  RTCxC 

1387  COMMON  /TEMPI/  RVCxF40 .  RVCXF65.  RVCxKl.  RVCxHL 

1388  COMMON  /TEMP 2/  IVCxSCS .  IVCxSCTl ,  IVCXSCT2,  IVCXSCT3,  IFCxN4 

1389  COMMON  /VAR1.  RVCxXL.  RVCxXU.  RVCxHU.  RVCxAO.  RVCxBO 

1390  COMMON  /VAR4/  RVCxA2 , RVCxB2 , RVCxC2 . RVCxHT3 . RTCxD , RTCxE 

1391  C 

1392  RVCxXX  =  RVCxAO  +  RVCxBO  •  RVSxH 

1393  RVCxALPH  »  RVCxBO  /  RVCxFREQ 

1394  IF  (IFCXN4.NE.1)  THEN 

1395  RVLxHUXE  =  ( 0 . 98D00 *RVCxHB ( 3 ) )  *  ( 0 . 98D00*RVCxHB ( 3 ) ) 

1396  RVLxHUXE  *  RVLxHUXE  /  i 2 . ODOO * RVCxFB ( 3 )« < RVCxHB ( 2 ) -RVCxHU 

1397  RVLxHTR  =  (RVCXHT3  -  RVCxHL) / i RVCxHU  -  RVCxHL) 

1398  RVLxXXXE  =  RVCxXX/ RVCxFB ( 1 )  -  RVCxBO « RVLxHTR 'RVLxHUXE 

1399  RVLXHUX2  =*  -RVLxHUXE  *  RVCxFB  <  1  /RVCxF3<3) 

1400  RVLxXXH2  =  -RVCxBO  *  RVLxHTR 

1401  RVLxXXX2  =  RVLxXXH2  *  RVLXHUX2 

1402  RVLXHUY2  =  -(RVCxHB (2)  -  RVCxHU)  /  RVCxHB ( 3 i 

1403  RVLxXXY2  =  RVLxXXH2  *  RVLXHUY2 

1404  RVCxETl  =<  RVLxXXXE •  RVCXB5  (1)  i*  RVLxXXX2*RVCxB5 i 3 ) 

1405  RVCxETl  *  RVCxETl  *■  RVLxXXH2*RVCxB6  ( 2 )  +•  RVLxXXY2*RVCx3  6  I 

1406  RVCxETl  *  -RVCxETl  /  (RVCxVl  *  RVCxFREQ) 

1407  RVCXET2  =  RVLxXXXE * RVCxES ( 1 )  +  RVLxXXX2 *RVCxE5 ( 3 ) 

1408  RVCXET2  ■  RVCxET2  -  RVLXXXH2 * RVCxS6  (  2  )  -  RVLxXXY2 * RVCxE5  2 

1409  RVCXET2  *  RVCxET2  /  !RVCxV2  •  RVCxFREQ) 

1410  ENDIF 

1411  RETURN 

1412  END 

PGVAL  Local  Symbols 

Name  Class  Type  Size 

RVSXH . par  am 

RVLXXXX2 . local  REAL*  3  3 

RVLXHUXE . local  REAL*  3  3 

RVLXXXY2 . local  REAL  *  8  3 


PGVAL  Local  Symbols 


Name  Class  Type  Size 

RVLXXXXE . local  REAL*  8  3 

RVLXHUX2 . local  REAL  *8  3 

RVLXHUY2 . local  REAL*  8  3 

RVLXXXH2 . local  REAL  *3  3 

RVLXHTR  .  local  REAL* 8  3 

RVCXA2 . VAR  4  REAL  *3  3 

RVCXB2 . VAR  4  REAL  *8  3 

RTCXA  .  OTHER  REAL'S  3 

RTCXB  .  OTHER  REAL *8  3 

RTCXC  .  I0N03  REAL *8  3 

RTCXD . VAR  4  REAL'S  3 

RTCXE . VAR  4  REAL'S  3 

IFCXN4 . TEMP2  INTEGER*  4  4 

IVCXSCS . TEMP  2  INTEGER *4  4 

I7CXSCT1 . TEMP 2  INTEGER*  4  4 

IVCXSCT2 . TEMP2  INTEGER*  4  4 

IVCXSCT3 . TEMP  2  INTEGER*  4  4 

ITCXA  .  I0N03  INTEGER *4  4 

RVCXXX . I0N03  REAL  *8  8 

RVCXAO . VAR1  REAL'S  3 

RVCXBO . VAR1  REAL  *8  8 

RVCXALPH . IONOI  REAL  *8  3 

RVCXFREQ . OTHER  REAL  *8  8 

RVCXHB . IONOI  REAL'S  24 

RVCXFB . IONOI  REAL*  8  24 

RVCXHU . VAR1  REAL'S  3 

RVCXHT3 . VAR  4  REAL  *  3  8 

RVCXHL . TEMPI  REAL'S  3 

RVCXET1  .  IONOI  REAL *3  3 

RVCXB5 . I0N02  REAL  *3  2  4 

RVCXB6 . I0N02  REAL  *8  24 

RVCXV1 . I0N03  REAL  *8  8 

RVCXET2  .  IONOI  REAL'S  3 

RVCXE5 . I0N02  REAL'S  24 

RVCXE6 . I0N02  REAL*  8  24 

RVCXV2 . I0N03  REAL'S  3 

RVCXL1 . OTHER  REAL*  8  8 

RVCXLOl  .  OTHER  REAL *8  8 

RVCXHBOT . OTHER  REAL '8  8 

RVCXBETA . IONOI  REAL'S  3 

RVCXA5 . I0N02  REAL'S  24 

RVCXA6 . I0NO2  REAL*8  24 

RVCXF40  .  TEMPI  REAL *8  8 

RVCXC2 . VAR 4  REAL  *  3  3 

RVCXF65  .  TEMPI  REAL'S  3 
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PGVAL 


ocal  Symbols 


Mame  Class  Type  Size 

RVCXK1 . TEMPI  REAL'S  3 

R  VC  XXL . VAR1  REAL'S  3 

RVCXXU . .  VAR1  REAL'S  3 
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Line# 


Source  Line 


1415 

1416 

c 

1417 

C- 

1418 

C 

1419 

c 

1420 

c 

1421 

c 

1422 

1423 

w 

1424 

c 

1425 

c- 

1426 

c 

1427 

r 

1423 

1429 

c 

1430 

c 

1431 

r 

1432 

r 

1433 

r 

1434 

C 

1435 

C 

1436 

c 

1437 

C-- 

1438 

c 

.439 

c 

1440 

c 

1441 

c 

1442 

c 

1443 

c 

1444 

c 

1445 

c 

1446 

c 

1447 

c 

1443 

c 

1449 

c 

1450 

c 

1451 

c 

1452 

c 

1453 

c 

1454 

c 

1455 

c 

1456 

c 

1457 

c 

1458 

c 

1459 

c 

1460 

c- 

1461 

c 

1462 

1463 

1464 

c 

SUBROUTINE  FGF1L  RVSxH! 


PGF1L  --  SUBROUTINE  co  calculate  the  ionospheric  parameters 
for  the  linear  FI  region. 


CALLED  3Y:  CASES 


AUTHOR: 


MICHAEL  H.  REILLY  5  ERIC  L.  STROBE! 


VERSION: 


1  .  3 


REVISED: 


09/01/87  --  VI . 0 .  Initial  revision. 


USES  : 


RVSxH  The  current  height. 


To  calculate  the  A.  Ml.  and  M2  parameters,  as  well  as  the 
plasma  frequency  squared  XX.  Fcr  more  details,  see  the 
Radio  Science  paper  and  the  RADr.?.-C  report  referred  to 
in  the  documentation. 


RETURNS : 

RVCxALPH 

A  toe  f .  m  the 
refraction. 

index 

'  ** 

RVCxETl 

A  coef.  m  the 
refraction . 

index 

0  f 

RVCxET2 

A  coef.  in  the 
refraction . 

index 

0  f 

RVCxXX 

The  plasma  frequency 

squared 

INTEGER  I F C xN 4 , 

IVCxSCS, 

IVCxSCTl.  IVCxSCTC, 

,  IVCxS 

CT  3 

INTEGER  ITCxA 
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Line# 

1-165 

1466 

1467 
1463 

1469 

1470 

1471 
147  2 

1473 

1474 

1475 

1476 

1477 
1473 
1479 
1430 
1481 

1432 

1433 

1434 

1435 

1436 
1487 
1483 

1489 

1490 

1491 

1492 

1493 

1494 

1495 

1496 

1497 
1493 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 


Source  Line 


C 


REAL  *  8 
REAL *8 
REAL  *  8 
REAL  *8 
REAL*  3 
REAL *3 
REAL  *  3 
REAL  *  3 


RVCxXX.  RVCxSLl .  RVLxHTV .  RVCxALPH.  RVCxFREQ 
RVCxHBl.  RVCxYS ,  RVLxSIXl.  RVLxSIHl.  RVLxYSXl 
RVCxHB ( 3 ) ,  RVCxFB ( 3 ) ,  RVCxH2 .  RVLxXXXl .  RVLxXXHl 
RVCxETl.  RVCxETl,  RVCxB5 3),  RVCxB6  i  3  i  .  RVCxE5<3: 
RVCx£6  (  3  )  .  RVCx'/l ,  RVCxVl  .  RVLxSlX2.  RVLxXXXl 
RVLxXXH2 ,  RVLXYSY2.  RVLXS1Y2,  RVLxXXY2 .  RVCxA5 ' 3 1 
RVCxAto . 3 ) . RVCxLl . RVCxLOl . RVCxHBOT . RVCxBETA . RVSxH 
RTCxA .  RTCxB,  RTCxC ,  RTCxD .  RTCxE 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


-  OTHER/  RVCxLl . RVCxLOl , RVCxHBOT . RVCxFREQ . RTCxA . RTCxB 
/ lONOl /  RVCxALPH . RVCx3ETA . RVCxETl . RVCxETC . RVCxF3 . R7C 
/ ION02 /  RVCXA5 , RVCxA6 . RVCxBS . RVCXB6 . RVCxE5 . RVCxE6 
/ ION03 /  RVCxVl ,  RVCxVC ,  RVCxXX.  ITCxA.  RTCxC 
/TEMPO/  OVCxSCS .  IVCxSCTl.  IVCxSCTO .  IVCxSCTC.  IrCxX 
/VAR 2/  RVCxHBl . RVCxHO , RVCxYS , RVCxSLl , RTCxD . RTCxE 


RVLxHTV  =  RVSxH  -  RVCxHBl 
RVCxXX  =  RVCxSLl  *  RVLxHTV 
RVCxALPH  =  RVCxSLl  /  RVCxFREQ 
IF  (IFCxN4.EQ.il  RETURN 
IF  ( RVCxYS . EQ . 1 1  THEN 
RVLxSIXl  =  l.ODGO 
RVLxSIHl  =  0.0000 

ELSE 

RVLxYSXl  =»  RVCxHB  (  3  )  *  RVCxHB  (  3  ■  ■  -  2  .  ODOO  *RVCxF3  31* 
♦(RVCxHB (2)  -  RVCXH21) 

RVLxSIXl  *  (1.CD00  -  i  RVCxFB  •'  2  )  ‘RVLxYSXl  i  RVCxYS  1  RVCxY 
RVLxSIHl  *  RVCxFB (2)  /  i RVCxYS ‘RVCxYS ) 

END  IF 

RVLxXXXl  =»  RVLxHTV  •  RVLxSIXl 

RVLxXXHl  =  0.75000* (-RVCxSLl  ♦  RVLxHTV* RVLxS 1H1  / 

RVCxETl  =  -RVLxXXXl* RVCxB5 ( 2)  -  RVLxXXHl «RVCx36 < 1 : 

RVCxETl  =»  RVLxXXXl  *  RVCx£5-2;  -  RVLxXXHl  •  RVCxE6  1 
IF  ( RVCxYS. EQ.l)  THEN 

RVCxETl  =*  RVCxETl  /  (RVCxVl  *  RVCxFREQ) 

RVCXET2  =  RVCXET2  /  !RVCxV2  *  RVCxFREQ) 

RETURN 
END  IF 

RVLXS1X2  -  RVLxSIHl  *  RVLxYSXl  *  RVCxFB (2)/  RVCxFB  3) 

RVLxXXXl  »  RVLxHTV  •  RVLxSlX2 

RVLXXXH2  «  -RVLXHTV  •  RVLxSIHl 

RVLXYSY2  *  (RVCXH2  -  RVCxHB (2))  /  RVCxHB i 3 1 

RVLXS1Y2  *  -RVLxSIHl  *  RVLxYSY2 

RVLXXXY2  -  RVLxHTV  •  RVLxSlY2 

RVCxETl  =  RVCxETl  -  RVLxXXXl «RVCxB5 < 3 )  -  RVLxXXHl  *RVC::36  _ 

RVCxETl  *  (RVCxETl  -  RVLxXXY2  *  RVCx36  (  2  )  )  /  (  RVCxVl « R  VC  :-:F?  EC 

RVCXET2  =  RVCXET2  ♦  RVLxXXXl « RVCxE5 -  3 )  -  RVLxXXHl * RVCxEs  1 

RVCxET2  =  (RVCXET2  *  RVLxXXY2 *RVCxS6 < 3 ) )  /  ( RVCxVl *RVCxF? E C 

RETURN 
END 
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PGF1L  Local  Symbols 


Name  Class  Type  Size 

RVSXH . param 

RVLXYSX1 . local  RSAL'8  3 

RVLXYSY2 . local  REAL  *  3  3 

RVLXXXX1 . local  REAL'S  3 

RVLXXXX2 . local  REAL'S  3 

RVLXXXY2 . local  REAL  *  8  3 

RVLXS1H1 . local  REAL' 8  8 

RVLXS1X1 . local  REAL'S  3 

RVLXS1X2 . local  REAL' 8  3 

RVLXS1Y2 . local  REAL'S  3 

RVLXXXH1 . local  REAL' 8  3 

RVLXXXH2 . local  REAL'S  3 

RVLXHTV  .  local  REAL' 8  8 

IFCXN4 . TEMP2  INTEGER*  4  4 

IVCXSCS  .  TEMP2  INTEGER' 4  4 

IVCXSCT1 . TEMP  2  INTEGER' 4  4 

IVCXSCT2 . TEMP  2  INTEGER*  4  4 

IVCXSCT3 . TEMP  2  INTEGER '4  4 

ITCXA  .  I0N03  INTEGER' 4  4 

RVCXXX . I0NO3  REAL'S  8 

RVCXSL1  .  VAR2  REAL *8  3 

RVCXALPH . IONOl  REAL '3  3 

RVCXFREQ . OTHER  REAL'S  8 

RVCXHB1  .  VAR2  REAL' 8  3 

RVCXYS . VAR2  REAL '8  3 

RVCXHB . IONOl  REAL  *8  2  4 

RVCXFB . IONOl  REAL' 8  2  4 

RVCXH2 . VAR2  REAL '8  3 

RVCXET1  .  IONOl  REAL* 8  3 

RVCXET2  .  IONOl  REAL'S  3 

RVCXB5 . I0N02  REAL' 8  2  4 

RVCXB6 . I0NO2  REAL'S  24 

RVCXE5 . I0N02  REAL*  8  24 

RVCXE6 . I0N02  REAL*  8  24 

RVCXV1 . I0N03  REAL '8  8 

RVCXV2 . I0NO3  REAL'3  8 

RVCXA5 . I0N02  REAL '8  2 

RVCXA6 . I0N02  REAL'8  2 

RVCXL1 . OTHER  REAL  *3 

RVCXLOl  .  OTHER  REAL'S  3 

RVCXHBOT . OTHER  REAL*  8  3 

RVCXBETA . IONOl  REAL'S  8 

RTCXA  .  OTHER  REAL'3  8 

RTCXB  .  OTHER  REAL *8  3 
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co 


PGF1L 


ocal  Symbols 


Name  Class  Type  Size 

RTCXC  .  I0N03  REAL *3  3 

RTCXD . VAR2  REAL  *  3  3 

RTCXE . VAR  2  REAL  *8  3 
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line#  Source  Line 

SUBROUTINE  ?GF1? iRVSxH) 


1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 


PGF1P  —  SUBROUTINE  to  calcu 
for  one  parabolic  FI 

CALLED  3Y :  CASE2 .  CASE4 , 

late  the 
region . 

CASES 

ionosph ?ric  parameters 

AUTHOR: 

MICHAEL  H 

.  REILLY 

&  ERIC  L.  STROBEL 

DATE: 

09' 01/37 

VERSION: 

1.0 

REVISED: 

09/01/37 

o 

H 

> 

I 

Initial  revision. 

USES  : 

RVSxH 

The 

current  height. 

To  calculate  the  A,  3,  Nl ,  and  N2  parameters,  as  well  as  the 
plasma  frequency  squared  XX.  For  more  details,  see  the 
Radio  Science  paper  and  the  RADAR-C  report  referred  to 
in  the  documentation. 


1550 

C 

RETURNS : 

RVCXALPH 

A  coef .  in  me 

index 

of 

1551 

C 

refraction . 

1552 

C 

1553 

C 

RVCxBETA 

A  coef.  in  the 

index 

of 

1554 

c 

refraction . 

1555 

r 

w 

1556 

C 

RVCxETl 

A  coef.  in  the 

index 

of 

1557 

C 

refraction . 

1558 

C 

1559 

C 

RVCXET2 

A  coef.  in  the 

index 

of 

1560 

c 

refraction . 

1561 

c 

1562 

c 

RVCxXX 

The  plasma  frequency 

square 

1563 

c 

1564 

c 

1565 

c - 

1566 
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ne#  Source  Line 


1567  INTEGER  IFCxN4 .  IVCxSCS,  IVCxSCTl ,  IVCxSCT2 ,  IVCxSCT3 

1568  INTEGER  ITCxA 

1569  C 

1570  REAL* 8  RVSxH .  RVLxYFl ,  RVLxHTV ,  RVCxHB ! 3 )  ,  RVCxXX 

1571  REAL  *  8  RVCxFB ( 3 )  .  RVCxFREQ,  RVCxALPH,  RVCxBETA.  RVLxXXXi 

1572  REAL'S  RVLxXXHl .  RVCxETl .  RVCXET2 ,  RVCxB5(3),  RVCxB6 ( 3 ) 

1573  REAL'S  RVCx£5(3).  RVCxE6(3),  RVCxVl,  RVCxV2 .  RVCxLl .  RVCxLOl 

1574  REAL'S  RVCxHBOT.  RVCxA5 t 3 ) .  RVCXA6 ( 3 ) .  RTCxA ,  RTCxB 

1575  REAL'S  RTCxC 

1576  C 

1577  COMMON  /OTHER/  RVCxLl . RVCxLOl . RVCxHBOT . RVCxFREQ , RTCxA . RTCxB 

1578  COMMON  /I0N01/  RVCxALPH . RVCxBETA . RVCxETl , RVCxET2 , RVCxFB . RVCxHB 

1579  COMMON  / I0N02/  RVCxAS . RVCXA6 , RVCxB5 . RVCxB6 , RVCxE5 . RVCxES 

1580  COMMON  /I0N03/  RVCxVl,  RVCxV2 ,  RVCxXX,  ITCxA,  RTCxC 

1581  COMMON  / TEMP 2 /  IVCxSCS,  IVCxSCTl.  IVCxSCT2 ,  I7CXSCT3 ,  IFCxM4 
1532  C 

1583  RVLxYFl  »  0.25000  '  RVCxHB (1) 

1534  RVLxHTV  =  ( RVCxHB (1)  -  RVSxH)  /  RVLxYFl 

1585  RVCxXX  =  RVCxFB (2)  '  (1.0000  -  RVLxHTV 'RVLxHTV) 

1536  RVCxALPH  *  2.0D00  *  RVCxFB (2)  *  RVLxHTV  /  (RVLxYFl  «  RVCxFREQ: 

1587  RVCxBETA  =  RVCxALPH  /  (2.0D0O  *  RVLxHTV  •  RVLxYFl) 

1588  IF  (IFCxN4.EQ.l)  RETURN 

1589  RVLxXXXi  =«  RVCxXX  /  (RVCxFB  (2)  *  RVCxFREQ) 

1590  RVLxXXHl  *  -2.0D00  *  RVCxBETA  *  RVSxH  * 

1591  #(1.0000  -  RVSxH/ RVCxHB (1) ) 

1592  RVCxETl  *  RVLxXXXi 'RVCxBS ( 2 )  +  RVLxXXHl * RVCxB6 ( 1 ) 

1593  RVCxETl  =  -RVCxETl  /  RVCxVl 

1594  RVCXET2  *  RVLxXXXi  *RVCxE5  (  2 )  «■  RVLxXXHl  *RVCxE6  ( 1 1 

1595  RVCXET2  *  RVCxET2  /  RVCxV2 

1596  RETURN 

1597  END 

PGF1P  Local  Symbols 

Name  Class  Type  Sire 

RVSXH . param 

RVLXXXXI . local  REAL '3  8 

RVLXYF1  .  local  REAL' 8  3 

RVLXXXH1 . local  REAL  *8  3 

RVLXHTV  .  local  REAL *8  3 

IFCXN4 . TEMP  2  INTEGER '4  4 

IVCXSCS  .  TEMP 2  INTEGER* 4  4 

IVCXSCT1 . TEMP2  INTEGER' 4  4 

IVCXSCT2 . TEMP2  INTEGER*  4  4 

IVCXSCT3 . TEMP  2  INTEGER '4  4 

ITCXA  .  ION03  INTEGER '4  4 

RVCXHB . XONOl  REAL'S  24 

RVCXXX . ION03  REAL  *  3  3 
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PGF1?  Local  Symbols 


Name  Class  Type  Size 

RVCXFB . IONOl  REAL*  8  24 

RVCXFREQ . OTHER  REAL  *8  3 

RVCXALPH . IONOl  REAL  *8  3 

RVCXBETA . IONOl  REAL  *8  3 

RVCXET1  .  IONOl  REAL *8  3 

RVCXET2  .  IONOl  REAL *8  3 

RVCXB5 . I0N02  REAL  *8  24 

RVCXB6 . I0NO2  REAL  *8  24 

RVCXE5 . I0N02  REAL  *8  2  4 

RVCXE6 . I0N02  REAL  *3  24 

RVCXV1 . I0N03  REAL  *  8  3 

RVCXV2 . I0N03  REAL  *8  3 

RVCXL1 . OTHER  REAL  *3  3 

RVCXLOl  .  OTHER  REAL *8  8 

RVCXHBOT . OTHER  REAL*  8  3 

RVCXA5 . I0NO2  REAL  *8  24 

RVCXA6 . I0N02  REAL  *8  24 

RTCXA  .  OTHER  REAL* 8  8 

RTCXB  .  OTHER  REAL* 8  3 

RTCXC  .  I0N03  REAL *8  8 
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Line#  Source  Line 


1600 

1601 

C 

1602 

C 

1603 

c 

1604 

c 

1605 

c 

1606 

c 

1507 

c 

1608 

c 

1609 

c 

1610 

c 

1611 

c 

1612 

c 

1613 

c 

1614 

c 

1615 

c 

1616 

c 

1517 

c 

1513 

v. 

1619 

c 

1620 

c 

1621 

c 

1622 

c 

1623 

c 

1624 

c 

1625 

c 

1526 

c 

1627 

c 

1628 

c 

1629 

c 

1630 

c 

1631 

c 

1632 

c 

1533 

c 

1634 

c 

1635 

c 

1536 

c 

1637 

c 

1638 

c 

1639 

r 

1640 

c 

1641 

c 

1642 

c 

1643 

c 

1644 

c 

1645 

c 

1646 

c 

1647 

c 

1648 

c 

1649 

c 

SUBROUTINE  PGF2 ( RVSxH ) 


?0F2  --  SUBROUTINE  Co  calculate  che  ionospheric  parameters 
for  che  parabolic  F2  region. 


CALLED  BY:  CASE1 .  CASE2 .  CASE3 .  CASE 4 ,  CASE5 


AUTHOR:  MICHAEL  H.  REILLY  &  ERIC  L.  STROBEL 

DATS:  39/01/37 

VERSION:  1.0 


REVISED:  09/01/37  --  VI . 0 .  Initial  revision. 


USES:  RVSxH  The  currant  height. 


To  calculate  the  A,  B.  Ni .  and  N2  parameters,  as  well  as 
plasma  frequency  squared  XX.  For  more  details,  see  the 
Radio  Science  paper  and  the  RADAR-C  report  referred  to 
in  the  documentation. 


RETURNS:  RVCxALPH  A  coef .  in  the  index  of 

refraction . 

RVCxBETA  A  coef.  in  the  index  of 

refraction. 

RVCxETl  A  coef.  in  the  index  cf 

refraction . 

RVCxET2  A  coef.  in  che  index  of 

refraction . 

RVCxXX  The  plasma  frequency  squared 
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Line#  Source  Line 


1650  INTEGER  IFCxN4 ,  IVCxSCS,  IVCxSCTl,  IVCxSCT2 .  IVCxSCT3 

1651  INTEGER  ITCxA 

1652  C 

1653  REAL  *  8  RVSxH,  RVLxHTV ,  RVCxHB ( 3 )  ,  RTLxl ,  RVCxXX 

1654  REAL* 8  RVCxFB<3),  RVCxFREQ ,  RVCxALPH,  RVCxBETA 

1655  REAL* 3  RVLxXXX2 .  RVLxXXH2 ,  RVLxXXY2 ,  RVCxETl .  RVCxET2 

1656  REAL *8  RVCxB5(3).  RVCxB6(3),  RVCxE5(3),  RVCxE6(3> 

1557  REAL* 3  RVCxVl.  RVCXV2 ,  RVCxLl,  RVCxLOl ,  RVCxHBOT 

1558  REAL* 8  RVCxA5 ( 3 )  .  RVCxA6(3).  RTCxA ,  RTCxB ,  RTCxC 

1659  C 

1660  COMMON  /OTHER/  RVCxLl . RVCxLOl , RVCxHBOT , RVCxFREQ , RTCxA . RTCxB 

1661  COMMON  / IONOl /  RVCxALPH . RVCxBETA, RVCxETl , RVCxET2 , RVCxFB . RVCxK: 

1662  COMMON  /I0N02/  RVCXA5 , RVCxA6 , RVCxB5 . RVCXB6 , RVCxE5 , RVCxE6 

1663  COMMON  /I0N03/  RVCxVl.  RVCXV2 ,  RVCxXX,  ITCxA.  RTCxC 

1664  COMMON  /TEMP2/  IVCxSCS.  IVCxSCTl.  IVCXSCT2 ,  IVCXSCT3 .  I?CxM4 

1665  C 

1666  RVLxHTV  =«  (RVCxHB  (21  -  RVSxH)  /  RVCxHB  ( 3 ) 

1667  RTLxl  *  1 . 0000  -  RVLxHTV* RVLxHTV 

1668  RVCxXX  ■  RVCxFB (3)  *  RTLxl 

1669  RVCxBETA  »  RVCxFB (3)  /  (RVCxHB (3)  *  RVCxHB ( 3 )  *  RVCxFREQ) 

1670  RVCxALPH  »  2.0000  *  RVCxBETA  •  (  RVCxHB (2)  -  RVSxH  ) 

1671  IF  ( IFCXN4 . EQ . 1 )  RETURN 

1672  RVLxXXX2  *  RTLxl 

1673  RVLXXXH2  *  -2.0000  «  RVCxFB ( 3 )  *  RVLxHTV  /  RVCxHB ( 3 ) 

1674  RVLxXXY2  =  -RVLxXXH2  *  RVLxHTV 

1675  RVCxETl  *  RVLxXXX2*RVCxB5 ( 3 )  +  RYLXXXH2 *RVCxB6 ( 2 ) 

1676  RVCxETl  *  -(RVCxETl  +  RVLxXXY2*RVCxB6 ( 3 ))/ (RVCxVl *RVCxFR£Q ■ 

1677  RVCXET2  *  RVLxXXX2 *RVCxE5 ( 3 )  ♦  R7LxXXH2 *RVCxE6 ( 2 ) 

1678  RVCXET2  »  (RVCXET2  +  RVLxXXY2«RVC:<E6  {  3 )  )  /  ( RVCxV2*RVCxFREQ  ) 

1679  RETURN 

1680  END 

PGF2  Local  Symbols 

Name  Class  Type  Size 

RVSXH . param 

RVLXXXX2 . local  REAL  *8  3 

RVLXXXY2 . local  REAL  *8  8 

RVLXXXH2 . local  REAL  *8  3 

RTLX1  .  local  REAL *8  3 

RVLXHTV  .  local  REAL* 8  3 

RVCXB5 . ION02  REAL  *8  2  4 

RVCXB6 . ION02  REAL  *8  24 

RVCXE5 . ION02  REAL  *8  24 

RVCXE6 . ION02  REAL*  8  24 

RVCXV1 . IONC3  REAL  *8  3 

RVCXV2 . ION03  REAL  *8  8 

RVCXL1 . OTHER  REAL  *8  8 
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PGF2  Local  Symbols 


Name  Class  Type  Size 

RVCXL01 . OTHER  REAL  *  8  3 

RVCXHBOT . OTHER  REAL  *3  3 

RVCXA5 . I0N02  REAL*  3  24 

RVCXA6 . I0N02  REAL  *3  24 

RTCXA  .  OTHER  REAL *3  3 

RTCXB  .  OTHER  REAL *3  3 

RTCXC  .  I0N03  REAL *8  3 

IFCXN4 . TEMP2  INTEGER- 4  4 

IVCXSCS . TSMP2  INTEGER  *  4  4 

IVCXSCT1 . TEMPI  INTEGER  *4  4 

I7CXSCT2 . TEMPI  INTEGER  *4  4 

IVCXSCT3 . TEMPI  INTEGER  *4  4 

ITCXA  .  I0NO3  INTEGER *4  4 

RVCXHB . IONOl  REAL -3  2  4 

RVCXXX . I0N03  REAL*  8  3 

RVCXFB . IONOl  REAL -8  24 

RVCXFREQ . OTHER  REAL  *3  3 

RVCXALPH . IONOl  REAL  *3  8 

RVCXBETA . IONOl  REAL*  3  3 

AVCXET1  .  IONOl  REAL *3  3 

RVCXET2  .  IONOl  REAL *8  8 
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ine#  Source  Line 


1633 

1634 
1685 

1636 

1637 
1633 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 
1737 
1.7  08 

1709 

1710 

1711 

1712 

1713 

1714 

1715 


SUBROUTINE  ?GFB ( RVSxH ) 


C 

c- 

c 

c 

c 

c 

c 

c 

c 

c- 

c 

c 

c 

c 

c 

c 

c 

c- 

c 

c 

c 

c- 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


?GFB  —  SUBROUTINE  to  calculate  the  ionospheric  parameters 
for  the  Bent  topside  region. 


CALLED  BY:  CASE1,  CASE2 ,  CASE3 ,  CASE4 .  CASE5 


AUTHOR : 

DATE: 

VERSION: 


MICHAEL  H.  REILLY  &  ERIC  L.  STROBEL 
09/01/37 
1.0 


REVISED: 


09/01/87  —  VI . 0 .  Initial  revision. 


USES  : 


RVSxH 


The  current  height, 


To  calculate  the  A,  B.  N1 .  and  N2  parameters,  as  well  as 
plasma  frequency  squared  XX.  For  more  details,  see  the 
Radio  Science  paper  and  the  RADAR-C  report  referred  to 
in  the  documentation. 


1716 

C 

RETURNS : 

RVCxALPH 

A  coef.  in  the 

index 

of 

1717 

C 

refraction . 

1713 

C 

1719 

C 

RVCxBETA 

A  coef.  in  the 

index 

1720 

C 

refraction . 

1721 

c 

1722 

c 

RVCxETl 

A  coef.  in  the 

index 

of 

1723 

c 

refraction . 

1724 

c 

1725 

c 

RVCXET2 

A  coef .  in  the 

index 

of 

1726 

c 

refraction . 

1727 

c 

1728 

c 

RVCxXX 

The  plasma  frequency 

square 

1729 

c 

1730 

1731 

c 

c - 

1732 
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Line#  Source  Line 


1733  INTEGER  IFCxN4 .  IVCxSCS .  IVCxSCTl ,  IVCXSCT2 .  IVCxSCT3 

1734  INTEGER  ITCxA 

1735  C 

1736  REAL *8  RVLxALP .  RVCxHB ( 3 >  .  RVLxA7 ,  RVCxFB ( 3 ) .  RVSxH 

1737  REAL *8  RVCxHTS .  RVCxXX,  RVCxALPH,  RVCxBETA ,  RVCxFREQ 

1738  REAL  *  8  RVLxXXX2 .  RVLxXXH2 ,  RVLxXXY2 .  RVCxETl .  RVCxET2 

1739  REAL *3  RVCxAS ( 3 ) .  RVCxA6 ( 3 ) .  RVCxB5(3).  RVCx36 ( 3 ) 

1740  REAL* 8  RVCxE5<3).  RVCxS6 ( 3 >  ,  RVCxVl.  RVCxV2 ,  RVCxLl .  RVCxLCl 

1741  REAL'S  RVCxHBOT .  RVCXA2 .  RVCxB2,  RVCxC2.  RVCxHT3 .  RVCxHT4 

1742  REAL'S  RTCxA .  RTCxB .  RTCxC 

1743  C 

1744  COMMON  /OTHER/  RVCxLl . RYCxLOl , RVCxHBOT , RVCxFREQ , RTCxA . RTCxB 

1745  COMMON  /IONOl/  RVCxALPH . RVCxBETA , RVCxETl , RVCx£T2 , RVCxFB , RVCx 

1746  COMMON  /I0N02/  RVCxAS . RVCxAo . RVCxBS . RVCxB6 . RVCxS5 . RVCx£6 

1747  COMMON  /I0N03/  RVCxVl.  RVCxV2,  RVCxXX,  ITCxA,  RTCxC 

1748  COMMON  /TEMP 2/  IVCxSCS.  IVCxSCTl.  IVCxSCT2 .  IVCxSCT3 ,  IFCxN4 

1749  COMMON  /VAR 4/  RVCXA2 , RVCXB2 . RVCxC2 , RVCxHT3 . RVCxHT4 , RVCxHTS 

1750  C 

1751  RVLxALP  *  1 .0000  /  *1.375000  *  RVCxHB ( 3 ) ) 

1752  RVLXA7  *  15.0000  '  RVCxFB (3)  *  DEXP ( RVLxALP «RVCxHT5 ) /16 . 0D00 

1753  RVCxXX  »  RVLXA7  *  DEX? ( -RVLxALP  «  RVSxH) 

1754  RVCxALPH  *  -RVLxALP  '  RVCxXX  /  RVCxFREQ 

1755  RVCxBETA  -  RVLxALP  '  RVCxALPH  /  2.0D00 

1756  IF  (IFCxN4.EQ.il  RETURN 

1757  RVLXXXX2  »  RVCxXX  /  (RVCxF3<3>  '  RVCxFREQ) 

17  58  RVLxXXH2  =«  -RVCxALPH 

1759  RVLXXXY2  =  -RVCxALPH  «  (0.25D00  -  1 . 37 5D00 'RVLxALP « 

1760  # ( RVCxHT5-RVSxH ) I 

1761  RVCxETl  »  RVLxXXX2«RVCxB5  (3)  +  RVL..XXH2  *RVCxB6  i  2  ! 

1762  RVCxETl  *  -(RVCxETl  *  RVLxXXY2«RVCxB6 ( 3 ) )  /  RVCxVl 

1763  RVCXET2  =  RVLxXXX2«RVCxE5 ( 3 >  *  RVLxXXH2*RVCx£6 i 2 ) 

1764  RVCXET2  =  (RVCxET2  -  RVLxXXY2 'RVCxE6 ( 3 ) )  /  RVCxV2 

1765  RETURN 

1766  END 

PGFB  Local  Symbols 

Name  Class  Type  Size 

RVSXH . param 

RVLXA7 . local  REAL '8  3 

RVLXXXX2 . local  REAL '3  3 

RVLXXXY2.  .  - . local  REAL'S  3 

RVLXALP  .  local  REAL'S  8 

RVLXXXH2 . •.  local  REAL'S  3 

IFCXN4 . TEMP2  INTEGER  *  4  4 

IVCXSCS  .  TEMP2  INTEGER '4  4 

IVCXSCT1 . TEMP  2  INTEGER '4  4 

IVCXSCT2 . TEMP 2  INTEGER*  4  4 


PGFB  Local  Symbols 


Name  Class  Type  Size 

IVCXSCT3 . TEMP  2  INTEGER  *4  4 

ITCXA . I0N03  INTEGER*  4  4 

RVCXHB . IONOl  REAL*  8  24 

RVCXFB . IONOl  REAL  *8  24 

RVCXHT5 . VAR  4  REAL *8  3 

RVCXXX . I0N03  REAL  *8  3 

RVCXALPH . IONOl  REAL  *3  8 

RVCXBETA . IONOl  REAL  *8  3 

RVCXFREQ . OTHER  REAL  *8  3 

RVCXET1  .  IONOl  REAL *8  3 

RVCXET2  .  IONOl  REAL *8  3 

RVCXA5 . I0N02  REAL*  3  24 

RVCXA6 . I0N02  REAL*  8  24 

RVCXB5 . I0N02  REAL  *  8  24 

RVCXB6 . I0N02  REAL*  3  24 

RVCXE5 . I0N02  REAL*  8  24 

RVCXE6 . I0N02  REAL  *3  24 

RVCXV1 . I0N03  REAL  *8  3 

RVCXV2 . I0N03  REAL  *8  8 

RVCXL1 . OTHER  REAL  *8  3 

RVCXLOl  .  OTHER  REAL *8  8 

RVCXHBOT . OTHER  REAL  *8  8 

RVCXA2 . VAR  4  REAL  *8  8 

RVCXB2 . VAR  4  REAL*  8  8 

RVCXC2 . VAR  4  REAL  *8  3 

RVCXHT3 . VAR 4  REAL  *  8  8 

RVCXHT4  .  VAR 4  REAL *3  3 

RTCXA  .  OTHER  REAL'S  3 

RTCXB  .  OTHER  REAL *8  8 

RTCXC  .  I0N03  REAL *8  8 

Global  Symbols 

Name  Class  Type  Size 

CASE1 . FSUBRT  *** 

CASE2 . FSUBRT  **« 

CASE3 . FSUBRT  *** 

CASE4 . FSUBRT  *«* 

CASES . FSUBRT  **•  *•* 

END . common  ***  32 

INBOX . extern  ***  *** 

INTERP . FSUBRT  ***  **• 

INTSIGN  .  extern  INTEGER* 4  ««• 
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Global  Symbols 


Name  Class  Type  Size 

IONOl . common  ***  30 

I0N02 . common  *  *  *  144 

I0N03 . common  ***  36 

IONOPAR . FSUBRT  *** 

MAINDAT . common  ”*  48 

MORE . common  *  *  •  12 

OTHER . common  *"*  48 

PGF1L . FSUBRT  *  *  * 

PGF1? . FSUBRT  ««■ 

PGF2 . FSUBRT  •  *  *  ««« 

PGF3 . FSUBRT  «** 

PGVAL . FSUBRT  '**  » •  - 

PRAM . common  *•*  32 

RAID . common  ***  4 

SCPS1 . common  28804 

SCPS1A . common  «•«  36400 

START . common  ***  40 

TEMPI . common  32 

TEMP2 . common  *«*  20 

TEMP 3  .  .  .  .  .  common  *  *  *  32 

TRIANG . extern  ***  «*« 

VAR1 . common  *»*  40 

VAR2 . common  *  *  *  4  3 

VAR3 . common  ***  40 

VAR  4 . common  ***  43 


Code  size  *  356f  (13679) 
Data  size  »  Q19f  (415) 
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Line#  Source  Line 


2  C 

3  C 

4  C 

5  C 

6  C 

7  C 
3  C 
9  C 

10  C 

11  C 

12  C 

13  C 

14  C 

15  C 

16  C 

17  C 
13  C 

19  C 

20  C 

21  C 

22  C 

23  C 

24  C 

25  C 

26  C 

27  C 
23  C 

29  C 

30  C 

31  C 

32  C 

33  C 

34  C 

35  C 

36  C 

37  C 
33  C 

39  C 

40  C 

41  C 

42  C 

43  C 

44  C 

45  C 

46  C 

47  C 

48  C 

49  C 

50  C 


SUBROUTINE  ENDPT ( IFSxG .  RVSxHO ,  RVSxHZ.  RVSxS4.  RVSxGPI) 


ENDPT  --  SUBROUTINE  TO  CALCULATE  THE  ENDPOINTS  OF  THE  INTERVAL 
CALLED  3Y:  RAYSUB 

CALLS:  ACCFS? 


AUTHOR:  MICHAEL  H.  REILLY 

DATE:  07/25/36 

VERSION:  1.1 


REVISED:  07/25/36  —  INITIAL  REVISION.  TRANSLATED 

FROM  TEKTRONIX  BASIC  TO  VAX  FORTRAN  BY 
ERIC  L.  STROBEL. 

07/30/36  --  VI . 1 .  Change  over  to  use  of 
REAL* 8  precision  in  the  calculations. 

C9/Q1/S7  —  V2.0.  Changed  to  prevent 
problems  with  calculations  on  small  numbers. 


USES:  IFSxG  A  FLAG 

RVSxHO  INITIAL  HEIGHT 

RVSxHZ  HEIGHT 

RVCXH5  NEW  HEIGHT 

RVCxALPH  X 

RVCxBETA  X 

RVCxETl  X- IONOSPHERIC  PARAMETERS 

RVCXET2  X 

RVCxHB  HEIGHT  OF  IONOSPHERE  BOTTOM 

RVCxCX.CY.CZ 

IVCxSX. SY. SZ 

TO  COMPUTE  THE  S.E.Z.  COORDINATES  FOR  THE  END  OF  THE 

RAYPATH  INCREMENT.  (See  the  Radio  Science  paper 
referred  to  in  the  documentation.) 


RETURNS : 

IFSxG 
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GROUP  PATH  INCREMENT 
COORDINATES  OF  THE  ENDPOINT 


Line#  Source  Line 


51 

52 

53 


u 

C 


RVSxG? I 
RVCxXF , YF 


54 

0  — 

55 

c 

56 

LOGICAL 

>  *4  A  mA  i  Jl  .  A  wA  ~  4a 

*  T*  t  n  *  t  4 

*  w  a  w A  *  J  ,  ui La* i 

53 

L 

INTEGER 

.  IFSxG.  IVCxSX. 

IVCxSY.  IVCxSZ 

59 

c 

50 

REAL *3 

RVCxCX.  RVCxC Y . 

RVCxC C ,  RVCxLATO.  RVCxLONO 

61 

REAL *3 

RVCxHB,  RVCxXF. 

RVCxYF.  RVCxZF,  RTLxTEMP 

5  2 

REAL  *  3 

RVCxH5 .  RVSxHO . 

RVSxHZ.  RVSxGPI.  RVCxALPH 

5  3 

REAL *3 

RVCX3ETA.  RVCxE 

Tl.  RVCXET2.  RVLxEPS 

54 

REAL *3 

RTLxF 3.  RTLxR2 . 

RTLxFS.  RTLxF  4 .  RTLxBl 

5  5 

REAL-3 

RTLXA2.  RTLxF 5. 

RTLXG3,  RTLxC  4 ,  RTLxCS.  RTLx. 

6  6 

REAL -3 

RTLxGl.  RTLxCS. 

RTLXC7.  RTLxF 2 .  RTLXG2 

57 

REAL -8 

RPCxPI ,  RPCxDTR 

.  RPCxRE ,  RPCxHTP.  RVSxS4 

63 

r 

59 

COMMON 

/OTHER/  RVCxLATO . RVCxLONO . RVCxHB 

70 

COMMON 

/END/  RVCxXF.  RVCxYF,  RVCxZF,  RVCxHS 

“  4 

> 

COMMON 

/ IOMO 1 /  RVCxALPH . RVCxBETA . RVCxETl . RVCxET2 

72 

COMMON 

/MORE/  IVCxSX. 

IVCxSY.  IVCxSZ.  RVCxCX.  RVCxC 

73 

COMMON 

/PRAM/  RPCxPI. 

RPCxDTR.  RPCxRE.  RPCxHTP 

74 

COMMON 

/TEMP 4/  RTLxF! , 

RTLxF 2 ,  RTLxF 3 

75 

c 

76 

c 

Initial 

i2ations . 

77 

c 

73 

RTLxA2 

■  0.0 

79 

RTLxBl 

*  0.0 

30 

RTLXC4 

=  0.0 

31 

RTLXC5 

=  0.0 

3  2 

RTLxCS 

=  0.0 

33 

RTLXC7 

*  0.0 

34 

RTLxF  4 

=  0.0 

85 

RTLXF5 

*  0.0 

36 

RTLxFS 

=  0.0 

37 

RTLxGl 

=  0.0 

38 

RTLxG2 

=  0.0 

39 

RTLXG3 

*  0.0 

90 

RTLXR2 

=  0.0 

91 

RVCxXF 

»  0.0D00 

92 

RVCxYF 

=  0.0D00 

93 

RVSxGPI 

*  0.0D00 

94 

RVLxEPS 

=  1. CD-09 

95 

c 

96 

c 

Check  for  being  in  free  space. 

97 

c 

98 

IF  ( RVCxH5 . GE . ( RVCxHB 

-  0.02D00) . AND . RVCxH5 . LE . 

99 

# (RPCxHTP 

-  0 . 02000) )  GO 

TO  10252 

00 

IF  (IVCxSZ.GE. 0  -  THEM 

RVCxC 
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ine#  Source  Line 


101 

102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 
117 
113 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 


IFSxG  =  7 

ELSE 

IFSxG  =  6 
END  IF 

C 

C  ACCFS?  is  che  routine  chac  does  the  free  space  propaga 

C 

CALL.  ACCFS?  (RVSxHO  .  RVSxS4  .  IFSxG) 

GO  TO  10267 

10262  RVCxZF  =  RVSxHZ  -  RVSxHO 
C 

C  Try  to  prevent  loss  of  precision  in  the  quantity 

C  (sqrt(x)  -  sqrt  x*yi i  with  y  small.  First,  define 

C  'small',  then  round  the  offending  terms  to  zero. 

C 

10263  IF  i RVCxBETA . ME . 0 . 0D00 )  THEN 

LTLxTI  =  DABS ( RVCxBETA* RVCxZF "RVCxZF ) . LT . (RVLxEPS* 
#RVCxCZ) 

LTLxT2  =  DABS i RVCxALPH "RVCxZF >  . LT. ( RVLxEPS "RVCxCZ < 
IF  (LTLxTI. AND. LTLxT2)  THEN 
RVCXALPH  =  O.ODOO 
RVCxBETA  =  O.ODOO 
GO  TO  10267 
END  IF 

IF  (IFSxG.EQ.3)  GO  TO  10282 
GO  TO  10280 
END  IF 

10265  IF  ( RVCxALPH. NE. 0 .0D00)  THEN 

LTLxT2  =  DABS ( RVCxALPH "RVCxZF  . LT . ( RVLxEPS "RVCxCZ < 
IF  ( LTLxT2 )  THEN 
RVCXALPH  »  0.0 

ELSE 

IF  (IFSxG. EQ. 3)  GO  TO  1C272 
GO  TO  10269 
END  IF 
END  IF 
C 

C  From  here  on,  the  code  follows  the  logic  outlined  m  c 

C  Radio  Science  paper  referred  to  m  the  documentatic 

C 

10267  RTLxF 3  *  IVCxSZ * RVCxZF  /  OSQRT (RVCxCZ) 

GO  TO  10293 

10269  RTLXR2  »  RVCxCZ  -  RVCxALPH « RVCxZF 
IF  (RTLXR2.GT. O.ODOO)  THEN 
RTLxF 3  =  DSQRT ( RTLxR2 ) 

ELSE 

IFSxG  =  3 

RVCxZF  =  RVCxCZ  /  RVCxALPH 
RTLxF 3  =  O.ODOO 
GO  TO  10265 
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ine#  Source  Line 


151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

130 

131 

132 

133 

184 

185 

186 
137 
188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 


END  IF 

10272  RTLxF6  ®  DSQRT ( RVCxCZ ) 

RTLxF  3  »  RTLxF6  -  RTLxF  3 

RTLxF3  *  2 . 3D00*IVCxSZ* RTLxF 3  /  RVCxALPH 
GO  TO  10293 

10230  RTLxR2  =  RVCxBETA* RVCxZF ‘RVCxZF  -  RVCxALPH -RVCxZF  -  RVCxCZ 
IF  .  RTLxR 2 . GT . 0 . 0  D  0  0 )  THEN 
RTLxF 4  =  DSQRT (RTLXR2) 

ELSE 

IFSxG  ®  3 

RVCxZF  =  (RVCxALPH  -  IVCxSZ * DSQRT ( RVCxALPH 
#*RVCxALPH  -  4 . 0D00*RVCx3 ETA* RVCxCZ) ) / ( 2 . QD0Q*RVCxBETA) 

RTLxF  4  =  0.0D00 
GO  TO  10263 
END  IF 

10232  RTLxBl  =  DSQRT (ABS (RVCxBETA/i 
IF  iRVCxBETA.LT. 0.0)  THEN 

RTLxF 6  =  SQRT ( RVCxALPH  *  RVCxALPH  -  4 . 0‘RVCxBETA‘RVCxCZ) 
IF  (IFSxG.EQ.3)  THEN 

RTLxF  4  =  INTSIGN< -RVCxALPH) 

ELSE 

RTLxF 4  =  ( 2 . 0  *RVCx3ETA*RVCxZF  -  RVCxALPH) /RTLxF6 
END  IF 

IF  ( DABS ( -RVCxALPH/ RTLxF6 ) .GT. 1.0)  THEN 

RTLxTEMP  =  DASIN ( DFLOAT ( INTSIGN ( -RVCxALPH/RTLxF6 ) ) 

ELSE 

RTLxTEMP  *  DASIN < -RVCxALPH 'RTLxF6l 
END  IF 

RTLxF 3  *  RTLxTEMP  -  DAS  IN ( RTLxF 4 ) 

ELSE 

RTLXA2  *  RVCxALPH  /  !  2 . 0D00«RTLxBl ) 

RTLxFS  *  DSQRT (RVCxCZ) 

RTLxF 6  *  -RTLXA2  +  RTLxFS 

RTLXG3  *  (RTLXB1* RVCxZF  -  RTLxA2  +  RTLxF 4 )  /  RTLxFS 

RTLxF3  *  DLOG(RTLxG3> 

END  IF 

RTLxF 3  *  IVCxSZ  «  RTLxF 3  /  RTLxBl 
10293  RTLXC4  »  DSQRT ( RVCxCX) 

RVSxGPI  -  RTLxF 3 
IF  (IFSxG. GT. 5)  GO  TO  10352 
IF  (RVCxETl . EQ . 0 . 0D00 )  THEN 
GO  TO  10320 

ELSE 

LTLxT3  ®  (DSQRT (RVCxCX) *DABS ( RVCxETl « RVCxZF ) I 
t.LT.  ( RVLxEPS  * RVCxCX *D SQRT ( RVCxCZ )  ) 

IF  (LTLXT3)  THEN 

RVCxETl  =  0.0D00 
GO  TO  10320 
END  IF 
END  IF 


Line#  Source  Line 


201 

202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 
227 
223 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 


IF  (IVCxSX.EQ.O)  IVCxSX  =  -INTSIGN ( RVCxETl ) 

RTLxC5  »  RTLxC4  -  RVCxETl *RTLxF3/ t 2 . ODOO-IVCxSX) 

IF  (RTLXC5 .GT. 0 . 0D00 )  GO  TO  10320 
RVCxXF  =  RVCxCX  /  RVCxETl 

IF  (DABS (RVCxETl « RVCxXF ) .LT. (RVLxEPS « RVCxCX ) )  THEN 
RVCxETl  =  O.ODOO 
GO  TO  10320 
END  IF 
IFSxG  =  4 

RTLxFl  »  2 . GD00 «RTLxC4« IVCxSX  /  RVCxETl 
RVSxGPI  =  RTLxFl 
IF  (RVCxBETA. EQ . 0 . ODOO !  THEN 

IF  (RVCxALPH. EQ. 0 .ODOO)  THEN 

RVCxZF  =  RTLxFl *DSQRT ( RVCxCZ ) /IVCxSZ 

ELSE 

RVCxZF  =  (RVCxCZ  -  (RTLxF6  -  RVCxALPH -RTLxFl/ 

* < 2. ODOO* IVCxSZ) ) »»2. ODOO)  /  RVCxALPH 
END  IF 

ELSE 

IF  (RVCxBETA.LT. 0.0)  THEN 

IF  ( DABS ( -RVCXALPH/RTLXF6 ) .GT. 1.0)  THEN 

RTLxTEMP  =  DASIN ( DFLOAT ( INTSIGN ( -RVCxALPH/ RTLxFS 
ELSE 

RTLxTEMP  *  DASIN ( -RVCxALPH/RTLxF6 ) 

END  IF 

RTLxF 4  *  RTLxTEMP  -  RTLxB 1 'RTLxFl * IVCxSZ 
RTLxF4  *  DSIN ( RTLxF 4 ) 

RVCxZF  *  (RVCxALPH  +  RTLxF 5  *RTLxF4 ) / ( 2 . 0  *RVCx3ETA 

ELSE 

RTLxGl  =  RTLxF6  *DEXP ( RTLxB 1 “RTLxFl / IVCxSZ )  *  RTLxAI 
RVCxZF  *  (RTLxGl* RTLxGl  -  RVCxCZ )/( 2 . ODOO *RTLx3 1  * RT 
*-  RVCxALPH) 

END  IF 
SNDIF 

IF  (RVCXET2.EQ.0 .ODOO)  THEN 
GO  TO  10318 

ELSE 

LTLxT4  =  ( DSQRT ( RVCxCY) «DABS ( RVCxETl * RVCxZF ' ! 

# .  LT . (RVLxEPS *RVCxCY*DSQRT (RVCxCZ) ) 

IF  ( LTLxT4 )  THEN 

RVCXET2  =  O.ODOO 
GO  TO  10318 
END  IF 
END  IF 

RTLxC6  =  DSQRT (RVCxCY) 

RTLxC7  =  RTLxC6  -  RVCxET 2 -RTLxFl/ ( 2 . 0D00*IVCxSY) 

IF  (RTLXC7 .LE.O .ODOO)  GO  TO  10320 
RVCxYF  *  (RVCxCY  -  RTLxC7-RTLxC7 ) /RVCXET2 
GO  TO  10341 

10313  RVCxYF  *  RTLxFl  *  DSQRT ! RVCxCY)  /  IVCxSY 
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Line#  Source  Line 


251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 
273 

279 

280 
281 
282 
283 
234 
285 
236 
287 
283 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 


00  TO  10341 

10320  RTLxC6  »  DSQRT ( RVCxCY ) 

IF  (RVCxET2.EQ. O.ODOO)  THEN 
GO  TO  10341 

ELSE 

LTLXT4  =  ( DSQRT ( RVCxCY) *DA3S ( RVCxET2* RVCxZF ) ) 

#.LT.  (  P.VLxSPS  ‘RVCxCY  "DSQRT  (  RVCxCZ)  ) 

IF  (LTLxT4)  THEN 

RVCXET2  =  0.0D00 
GO  TO  10341 
ENDIF 
END  IF 

IF  ( IVCxSY. EQ.O)  IVCxSY  *  INTSIGN ( -RVCXET2 ) 

RTLXC7  =  RTLxC6  -  RVCxET2*RTLxF3/ ( 2 . 0D00«IVCxSY) 

IF  (RTLXC7 .GT. 0 . 0D00)  GO  TO  10341 
RVCxYF  *  RVCxCY  /  RVCx£T2 

IF  ( DABS < RVCXET2 « RVCxYF ) .LT. (RVLxEPS -RVCxCY ) )  THEN 
RVCXET2  *  O.ODOO 
GO  TO  10341 
ENDIF 
IFSxG  *  5 

RTLxF2  =  2.0D00  *  RTLxC6  «  IVCxSY  /  RVCxET2 
RVSxGPI  =■  RTLxF2 
IF  (RVCxBETA.EQ. O.ODOO)  THEN 

IF  ( RVCxALPH . EQ . 0 . ODOO )  THEN 

RVCxZF  =»  RTLxF2  *  DSQRT  ( RVCxCZ )  /  IVCxSZ 

ELSE 

RVCxZF  *  i RVCxCZ  -  ( RTLxF6  -  RVCxALPH*RTLxF2 .  l 

*  2  .  ODOO  * IVCxSZ )  ) “ *  2 . ODOO )  /  RVCxALPH 

ENDIF 

ELSE 

IF  (RVCxBETA.LT. 0.0 1  THEN 

IF  ( DABS ( -RVCxALPH/ RTLXF6 ) .GT. 1.0)  THEN 

RTLxTEMP  *  DASIN  (  DFLOAT  <  INTSIGN  ( -RVCxALPH/ RTLxF-1 
ELSE 

RTLxTEMP  *  DASIN ( -RVCxALPH/RTLxFS ) 

ENDIF 

RTLxF 4  =  RTLxTEMP  -  RTLxBl « RTLxF2 « IVCxSZ 
RTLxF 4  *  DSIN ( RTLxF4 ) 

RVCxZF  »  (RVCxALPH  >  RTLxF6 -RTLxF4 ) / ( 2 . 0  * RVCxBETA . 

ELSE 

RTLxG2  »  RTLxF6«DEXP (RTLxBl *RTLxF2/ IVCxSZ)  *  R 
RVCxZF  =  ( RTLxGZ * RTLxG2  -  RVCxCZ )/( 2 . ODOO * RTLx 

*  -  RVCXALPH) 

ENDIF 
ENDIF 

IF  (RVCxETl.EQ. O.ODOO)  THEN 

RVCxXF  =  RTLxF2  *  DSQRT ’  RVCxCX )  /  IVCxSX 

ELSE 

RTLXC5  =  RTLXC4  -  RVCxETl «RTLxFI/ ( 2 . ODOO « IVCxSX i 
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cn 


(RVCxCX  -  RTLxC 5  *  RTLxC 5 ) / RVCxETl 


Line#  Source  i.r.e 

301  RVCxXF  = 

302  END IF 

303  10341  IF  (IFSxG.GT.3)  RETURN 

304  IF  ( RVCxETl. ME. 0. 0DC0)  THEN 

305  RVCxXF  =  (RVCxCX  -  RTLxC 5 *RTLxC5 ) /RVCxETl 

306  ELSE  IF  < RVCxCX. NE . 0 . ODOO )  THEN 

30  7  RVCxXF  =  RTLxC 4  *  IVCxSX  *  RTLxF 3 

303  END I? 

309  IF  (RVCXET2.NE.O.ODOO!  THEN 

310  RVCxYF  =  (RVCxCY  -  RTLxCT * RTLxCT ) / RVCXET2 

311  RETURN 

312  END  IF 

313  IF  ( RVCxCY. EQ.O.ODOQi  RETURN 

314  RVCxYF  =  RTLxC 6  *  IVCxSY  -  RTLxF 3 

315  10352  RETURN 

316  END 


ENDPT  Local  Symbols 

Name  Class  Type  Size 

RVSXGPI . param 

RVSXS4 . param 

RVSXHZ . param 

RVSXH0 . param 

IFSXG . param 

RTLXTEMP . local  REAL  *8  3 

RTLXC 4 . local  REAL  *  3  8 

RTLXG1 . local  REAL  *  3  3 

RTLXC  5 . local  REAL- 3  3 

RTLXG2 . local  REAL -3  3 

RTLXC 6 . local  REAL  *  3  3 

RTLXC  7 . local  REAL  *3  3 

RTLXG3 . local  REAL*  3  3 

RTLXF  4 . local  REAL'S  3 

RTLXF  5 . local  REAL*  3  3 

RTLXF6 . local  REAL'S  3 

LTLXT1 . local  LQGICAL*4  4 

LTLXT2 . local  LOGICAL  *4  4 

LTLXT3 . local  LOGICAL*  4  4 

LTLXT4 . local  LOGICAL*4  4 

RTLXR2 . local  REAL*  3  3 

RVLXEPS  .  local  REAL *8  3 

RTLXA2 . local  REAL  *  8  3 

RTLXB1 . local  REAL  *  3  3 

IVCXSX . MORE  INTEGER  *4  4 

IVCXSY . MORE  INTEGER  *  4  4 

IVCXSZ . MORE  INTEGER  *4  4 

RVCXCX . MORE  REAL  *3  8 


221 


ENDPT  Local  Symbols 


Name  Class  Type  Size 

RVCXCY . MORE  REAL  *8  8 

RVCXC2 . MORE  REAL  *  8  3 

RVCXLATO . OTHER  REAL  *  8  3 

RVCXLONO . OTHER  REAL  *  3  3 

RVCXHB . OTHER  REAL  *8  3 

RVCXXF . END  REAL  *3  3 

RVCXYF . END  REAL"  3  8 

RVCX2F . END  REAL  *  8  3 

RVCXH5 . END  REAL  *8  3 

RVCXALPH . I0N01  REAL  *  8  8 

RVCXBETA . I0N01  REAL  *8  3 

RVCXET1 . IONOl  REAL  *  3  3 

RVCXET2  .  IONOl  REAL -3  3 

RTLXF3 . TEMP  4  REAL  "8  3 

RTLXF1 . TEMP  4  REAL  *8  8 

RTLXF2 . TEMP  4  REAL"  8  8 

RPCXPI . PRAM  REAL'S  8 

RPCXDTR  .  PRAM  REAL "8  3 

RPCXRE . PRAM  REAL  *8  8 

RPCXHTP  .  PRAM  REAL "8  8 
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Line#  Source  Line 


318 

319  C 

320  C 

321  C 

322  C 

323  C 

324  C 

325  C 

326  C 

327  C 
323  C 

329  C 

330  C 

331  C 

332  C 

333  C 

334  C 

335  C 

336  C 

337  C 

338  C 

339  C 

340  C 

341  C 

342  C 

343  C 

344  C 

345  C 

346  C 

347  C 

348  C 

349  C 

350  C 

351  C 

352  C 

353  C 

354  C 

355  C 

356  C 

357  C 

358  C 

359  C 

360  C 

361  C 

362  C 

363  C 

364  C 

365  C 

366  C 

367  C 


SUBROUTINE  PHSPLCFSxG,  RVSxPPI) 

PHSPL  —  SUBROUTINE  TO  CALCULATE  THE  PHASE  PATH  LENGTH 
INCREMENT  FOR  THE  CURRENT  RAY  PATH  INCREMENT. 

CALLED  BY:  RAYSUB 

CALLS:  PHSPL2 ,  PHSPL3 

AUTHOR:  MICHAEL  H.  REILLY  &  ERIC  L.  STROBEL 

DATE:  09/30/37 

VERSION:  1.0 

REVISED:  09/30/37  —  VI . 0 .  Initial  revision. 


USES :  RVCxALPH  \ 

RVCxBETA  ! _  To  decide  on  which  PPI  calc. 

RVCxETl  .  c:  use. 

RVCXET2  / 

IVCxSX.Y.Z  \ 

RVCxCX.Y.Z  ; —  To  calc.  PPI  in  regions  or 

RVCxX.Y.ZF  /  constant  plasma  frequency. 

IFSxG  A  flag  variable. 

To  either  pass  off  the  phase  path  increment  length  caiculati 
to  PHSPL2.3  or  to  do  it  locally  for  the  simplest  case.  Th 
phase  path  calculations  are  done  by  considering  the  mui'd 
integral,  where  (mu)  is  the  index  of  refraction.  (See  the 
Radio  Science  paper  referred  to  in  the  documentation,  eq . 


RETURNS:  RVSxPPI  The  increment  of  phase  path 

length . 
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Line# 


Source  Line 


363  C 

369 

370  C 

371 

372 

373 

374 

375  C 

376 

377 
373 

379 

380  C 
331  C 

382  C 

383  C 
334 

385 

386 

387  C 

388  C 

389  C 

390  C 

391 

392 

393 

394 

395 

396  C 

397  C 

398  C 

399  C 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 


INTEGER  IFSxG.  IVCxSX.  IVCxSY.  IVCxSZ 

REAL  *  8  RVSxPPI ,  RVCxFl .  RVCXF2,  RVCxF3,  RVCxBETA.  RVCxXF 
REAL*  8  RVCxYF.  RVCxZF.  RVCxCX.  RVCxCY,  RVCxCZ ,  RVCxALPH 
REAL*  8  RVSxPPIX.  RVSxPPIY,  RVSxPPIZ.  RVCxETl .  RVCXET2 
REAL *8  RTCxA 

COMMON  /END/  RVCxXF.  RVCxYF.  RVCxZF.  RTCxA 
COMMON  /MORE/  IVCxSX . IVCxSY , IVCxSZ , RVCxCX , RVCxCY . RVCxCZ 
COMMON  / IONOl /  RVCxALPH, RVCXBETA. RVCxETl. RVCXET2 
COMMON  /TEMP 4/  RVCxFl ,  RVCxF2.  RVCxF3 

IFSxG  *  4  to  flag  an  x-refleccion  &  =  5  to  flag  a 
y-ref lection . 

IF  (IFSxG.EQ.4)  RVCxF3  =  RVCxFl 
IF  (IFSxG.EQ.5)  RVCxF  3  =  RVCxF2 
IF  (RVCxBETA. NE. 0.0000)  THEN 

Call  PHSPL3  to  calculate  the  Z  phase  path  increment  when 
beta  is  not  egual  to  zero. 

CALL  PHSPL3 ( RVCxZF . RVCxF3 . IVCxSZ . RVCxCZ . RVCxALPH . RVCxBETA 
#, IFSxG. RVSxPPIZ) 

ELSE  IF  (RVCxALPH. EQ.O.ODOO)  THEN 

RVSxPPIZ  *  IVCxSZ  •  RVCxZF  *  DSC.RT  ( RVCxCZ ) 

ELSE 

Call  PHSPL2  to  calculate  phase  path  increment  for  a  direction 
in  which  the  plasma  frequency  has  a  linear  dependence. 

CALL  PHSPL2 (RVCxZF . IVCxSZ . RVCxCZ , RVCxALPH . RVSxPPIZ i 
END  IF 

IF  (RVCxETl. EQ.O.ODOO)  THEN 

RVSxPPIX  *  IVCxSX  •  RVCxXF  -  DSQRT ( RVCxCX) 

ELSE 

CALL  PHSPL2 (RVCxXF. IVCxSX. RVCxCX . RVCxETl . RVSxPPIX/ 

END  IF 

IF  (RVCXET2. EQ.O.ODOO)  THEN 

RVSxPPIY  =  IVCxSY  *  RVCxYF  *  DSQRT i RVCxCY) 

ELSE 

CALL  PHSPL2 (RVCxYF . IVCxSY , RVCxCY , RVCxETl . RVSxPPIY ■ 

END  IF 

RVSxPPI  *  RVSxPPIX  -  RVSxPPIY  *  RVSxPPIZ 

RETURN 

END 
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PHSPL  Local  Symbols 
Name 


Class  Type 


Size 


RVSXPPI . param 

IFSXG . param 

RVSXPPIX . local  REAL  *8  3 

RVSXPPIY . local  REAL-3  3 

RVSXPPI2 . local  REAL-8  3 

RVCXCY . MORE  REAL -8  3 

RVCXC2 . MORE  REAL -3  3 

RVCXALPH . IONOl  REAL- 3  3 

RVCXET1  .  IONOl  REAL -3  3 

RVCXET2  .  IONOl  REAL *3  3 

RTCXA . END  REAL -3  3 

IVCXSX . MORE  INTEGER  *4  4 

IVCXSY . MORE  INTEGER- 4  4 

IVCXS2 . MORE  INTEGER -4  4 

RVCXF1 . TEMP  4  REAL -3  3 

RVCXF2 . TEMP  4  REAL -8 

RVCXF3 . TEMP  4  REAL -8 

RVCXBETA . IONOl  REAL  *8 

RVCXXF . END  REAL -3  3 

RVCXYF . END  REAL -3  3 

RVCX2F . END  REAL -8  3 

RVCXCX . MORE  REAL*  8  3 
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CO  CO  co 


Line# 

Source 

Line 

417 

SUBROUTINE 

PHSPL3 ( RVSxZS . RVSxF  3 . IVSxSZ . RVSxCZ , RVSxALPH 

413 

*. 

,  RVSxBETA - IFSxG , RVSxPPIZ ) 

419 

420 

r 

C  -* J  "  “  ’ 

421 

c 

422 

c 

PHSPL3  -- 

SUBROUTINE  TO  CALCULATE  THE  Z  INCREMENT  OF 

423 

c 

PHASE  PATH  LENGTH  FOR  BETA  EQUALS  ZERO. 

424 

c 

425 

c 

426 

c 

CALLED  BY: 

PHSPL 

427 

423 

c 

c 

429 

c 

430 

c 

AUTHOR : 

MICHAEL  H.  REILLY  &  ERIC  L.  STROBEL 

431 

c 

432 

c 

DATE: 

09/30/37 

433 

c 

434 

c 

VERSION: 

1.0 

435 

436 

c 

c ------ 

437 

c 

433 

c 

REVISED: 

09/30/37  --  VI . 0 .  Initial  revision. 

439 

c 

44U 

u  —  —  -  -  - 

441 

c 

442 

c 

USES  : 

RVSxZS  SEZ  z  value  at  end  of  RPI 

443 

c 

444 

c 

RVSxF3  Complete  group  path  lengt 

445 

c 

increment . 

446 

r 

447 

c 

IVSxSZ 

443 

c 

RVSxCZ  , _  Propagation  parameters. 

449 

c 

RVSxALPH  ; 

450 

c 

RVSxBETA  / 

451 

r 

452 

c 

IFSxG  A  flag  variable. 

453 

c 

454 

c 

455 

c 

To  calculate  the  increment  of  phase  path  length  m  the 

456 

c 

2-direction  when  the  z  dependence  of  the  plasma  freq. 

457 

c 

is  quadratic  (i.e.  beta. NS. 0). 

458 

c 

459 

c 

460 

c 

RETURNS : 

RVSxPPIZ  The  z  increment  of  phase 

461 

c 

path  length. 

462 

463 

c 

w  ---  —  “ 

464 

c 

465 

INTEGER  IVSxSZ. IFSxG 

466 

c 
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Line#  Source  Line 


467  REAL* S  RVSxZS .  RVSxF3 .  RVSxCZ.  RVSxALPH.  RVSxflETA 

463  REAL *8  RVSxPPIZ,  RVLxR2 ,  RVLxDEL 

469  C 

470  IF  (IFSxG.EQ.3)  THEN 

471  RVLXR2  =  0.0D00 

472  ELSE 

473  RVLXR2  =  DSQRTf RVSxCZ  -  RVSxALPH-RVSxZS  +  RVSxBETA * 

474  #RVSxZ5*RVSxZ5) 

475  ENDIF 

476  RVLxDEL  =  4.3DOO  «  RVSxBETA  *  RVSxCZ  -  RVSxALPH  *  RVSxALPH 

477  RVSxPPIZ  =  (2.0D0G  «  RVSxBETA  *  RVSxZS  -  RVSxALPH)  *  RVLxR2 

473  RVSxPPIZ  *  RVSxPPIZ  +•  RVSxALPH  «  DSQRT ( RVSxCZ ) 

479  RVSxPPIZ  =  (IVSxSZ  «  RVSxPPIZ  +  RVLxDEL  *  RVSxF3/ 2 . ODOO ) 

480  RVSxPPIZ  =  RVSxPPIZ  /  (4. ODOO  *  RVSxBETA) 

431  RETURN 

482  END 


PHSPL3  Local  Symbols 

Name  Class  Type  Size 

RVSXPPIZ . param 

IFSXG . param 

RVSXBETA . param 

RVSXALPH . param 

RVSXCZ . param 

IVSXSZ . :  param 

RVSXF3 . param 

RVSXZ5 . param 

RVLXR2 . local  REAL  *8  3 

RVLXDEL . local  REAL  *  3  8 
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-me#  Source  Li 


SUBROUTINE  PHSPL2 ( RVSxW ,  IVSxS ,  RVSxC,  RVSxN.  RVSxPPIWi 


PHSPL2  —  SUBROUTINE  TO  CALCULATE  THE  PHASE  PATH  LENGTH 
INCREMENT  FOR  LINEAR  PLASMA  FREQUENCY  PATHS. 

CALLED  BY: 

PK3PL 

AUTHOR: 

MICHAEL  H.  REILLY  &  ERIC  L.  STRCBEL 

DATE: 

•09/  30/37 

VERSION: 

1 . 0 

REVISED: 

09/30/37  --  VI . 0 .  Initial  revision. 

USES  : 

RVSxW  The  generalized  SE2  coord. 

value  at  the  end  of  the  RPI. 

IVSxS 

RVSxC  ; --  The  generalized  propagation 
RVSxN  /  parameters. 

To  calculate  the  phase  path  length  increment  for  the 
particular  coordinate  direction  of  interest.  The  PPI 
is  calculated  for  a  plasma  frequency  that  is  linearly 
dependent  on  the  coordinate  involved.  This  translates 
to  having  N  *  Nx  or  My.  or  if  B  =  0.  N  =  A.  The  s are 
routine  can  then  be  used  in  any  of  the  coordinate 
directions . 

RETURNS : 

RVSxPPIW  The  phase  path  increment  for 

the  particular  coordinate  dir 

INTEGER  IVSxS 


REAL* 8  RVSxW.  RVSxC.  RVSxN.  RVSxPPIW.  RVLxR .  RVLxRd 
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Line#  Source  Line 

535  RVL xR  *  RVSxC  -  RVSxN  *  RVSxW 

536  IF  ( RVLxR. GT. 0 . ODOO)  THEN 

537  RVLxR2  =  -RVLxR  *  DSQRT ( RVLxR ) 

533  ELSE 

539  RVLxR2  =  0.3D00 

540  END IF 

541  RVSxPPIW  =  2.  ODOO  *  IVSxS  *  •  RVLXR2  +•  RVSxC  «  DSQRT  ;RVSx 

542  RVSxPPIW  =  RVSxPPIW  /  3. ODOO  *  RVSxN) 

543  RETURN 

544  END 

PHSPL2  Local  Symbols 

Name  Class  Type  Size 

RVSXPPIW . param 

RVSXN . param 

RVSXC . param 

IVSXS . param 

RVSXW . param 

RVLXR2 . local  REAL  *  8  3 

RVLXR  .  local  REAL *3  3 

Global  Symbols 

Name  Class  Type  Size 

ACCFSP . extern  **«  *«* 

END . common  « *  *  3  2 

ENDPT . FSUBRT  **« 

INTSIGN . extern  INTEGER *4  « *  « 

I0N01 . common  **«  32 

MORE . common  *»*  36 

OTHER . common  **«  24 

PHSPL . FSUBRT  «»• 

PHSPL2 . FSUBRT  «•« 

PHSPL3 . FSUBRT  ««« 

PRAM . common  ***  3  2 

TEMP  4 . common  ***  2  4 

Code  size  »  155e  (5470) 

Data  size  *  0044  (63) 
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me#  Source 


SUBROUTINE  TILTS (RVSxDXHB .  RVSxDYHB .  IVSxJ) 


TILTS  --  SUBROUTINE  TO  CALCULATE  THE  IONOSPHERIC  BOUNDARY  TILTS 

ZALLSD  BY: 

RAYSUB 

AUTHOR: 

MICHAEL  H.  REILLY  4  ERIC  L.  STRCBEL 

DATE: 

09/30/87 

VERSION: 

2.0 

REVISED: 

07/25/86  —  INITIAL  REVISION.  TRANSLATED 
FROM  TEKTRONIX  BASIC  TO  VAX  FORTRAN  BY 

ERIC  L.  STROBEL. 

07/30/36  —  VI . 1 .  Change  over  to  use  of 
REAL* 3  precision  in  the  calculations. 

09/30/87  --  V2.0.  Extensively  modified 
to  accommodate  th.  use  of  RADAR-C .  This 
routine  now  serves  as  a  dispatcher  for 
the  real  processing . 

USES  : 


IVSxJ 

IVCxCASE 

RVCxHBMD 

IFCxSN 


A  boundary  index. 

Describes  the  con.DO.  cf 
profiles  used. 

He lent  of  the  up co nine 
boundary . 

A  flag  parameter  needed  m 
one  of  the  cases . 


To  decide  which  of  the  tilt  calculation  routines  is  to 
used,  if  at  all.  The  J-index  values  have  different 
meanings  depending  on  which  CASE  applies. 


RETURNS : 


RVSXDXH3 

RVSxDYHB 


. d/dx; Boundary  Height 
•  d/ dy )  Boundary  Heig.it 
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Line#  Source  Line 


51  C 

52  C 

53 

54  C 

55 

56 

57  C 

58 

59 

60 

61  C 

62 

63 

64 

6  5 

66  C 
5  7  c 

68  C 

69  C 

70 

71 

72 

73 

7  4 

75 

76 

77 
73 
79 

30 

31 
82 

33 

34 

35 

36 

37 

38 

39 

90 

91 

92 

93 


INTEGER  IVSxJ ,  IVCxCASE.  IFCxSN 

REAL  *  3  RVSxDXHB .  RVSxDYHB .  RPCxPI.  RPCxDR .  RPCxRE 
REAL « 8  RVCxVl ,  RVCXV2 .  RPCxHTP .  RVCxXX,  RVCxHBND 

COMMON  /PRAM/  RPCxPI,  RPCxDR.  RPCxRE,  RPCxHTP 

COMMON  / I0N03 /  RVCxVl,  RVCxV2 .  RVCxXX.  IVCxCASE.  RVCxHBND 

COMMON  /RAID/  IFCxSN 

RVSxDXHB  =  0.0D00 

RVSxDYHB  =  0.0D00 

IF  (IVSXJ.LT. 5)  RETURN 

IF  ( RVCxHBND.  GE.  RPCxHTP,'  RETURN 

3egm  calling  the  routines  for  the  boundary  tile  calculation, 
based  upon  the  CASE  and  J  values. 

IF  ( IVCxCASE. EQ.i)  THEN 

IF  (IVSxJ.EQ.5)  CALL  HUTLT < RVSxDXHB .  RVSxDYHB) 

IF  (IVSxJ.EQ.6)  CALL  H5TLT ( RVSxDXHB ,  RVSxDYHB) 

ELSE  IF  ( IVCxCASE. EQ. 2)  THEN 

IF  (IVSxJ.EQ.5)  CALL  H1PTLT ( 1 . RVSxDXHB .  RVSxDYHB) 

IF  iIVSxJ.EQ.6)  CALL  H4TLT ( IFCxSN ,  RVSxDXHB,  RVSxDYHB' 

IF  (IVSxJ.EQ.7)  CALL  H5TLT ( RVSxDXHB ,  RVSxDYHB' 

ELSE  IF  ( IVCxCASE. EQ. 3)  THEN 

IF  ( IVSxJ . EQ . 5 )  CALL  H1LTLT ( RVSxDXHB .  RVSxDYHB' 

IF  ( IVSxJ . EQ . 6 )  CALL  H2TLT i RVSxDXHB ,  RVSxDYHB) 

IF  ( IVSxJ. EQ. 7)  CALL  H5TLT ( RVSxDXHB .  RVSxDYHB) 

ELSE  IF  ( IVCXCASE. EQ. 4)  THEN 

I?  ( IVSxJ . EQ . 5 )  CALL  HUTLT ! RVSxDXHB .  RVSxDYHB i 
IF  (IVSxJ.EQ.6)  CALL  H4TLT(-1.  RVSxDXHB.  RVSxDYHB, 

IF  ( IVSxJ . EQ . 7 )  CALL  H4TLT ( 1 ,  RVSxDXHB.  RVSxDYHB: 

IF  ( IVSxJ . EQ . 8 )  CALL  H5TLT ( RVSxDXHB ,  RVSxDYHB) 

ELSE  IF  (IVCxCASE. EQ. 5)  THEN 

IF  (IVSxJ. EQ. 5)  CALL  H1PTLT ( 1 . RVSxDXHB , RVSxDYHB > 

IF  (IVSxJ.EQ.6)  CALL  H1PTLT ( -1 . RVSxDXHB . RVSxDYHB ) 

IF  ( IVSxJ . EQ . 7 )  CALL  HUTLT ( RVSxDXHB , RVSxDYHB ) 

IF  ( IVSxJ . EQ . 3 )  CALL  H5TLT ( RVSxDXHB , RVSxDYHB ) 

ENDIF 

RETURN 

END 


TILTS  Local  Symbols 


Name  Class  Type  Size 

IVSXJ . param 
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TILTS 


ocal  Symbols 


Marne  Class  Type  Size 

RVSXDYHB . param 

RVSXDXHB . param 

IVCXCASS . I0N03  INTEGER  *  4  4 

IFCXSN . RAID  INTEGER*  4  4 

RPCXPI . PRAM  REAL  *8  3 

RPCXDR . PRAM  REAL'S  3 

RPCXRE . PRAM  REAL  *  3  3 

RVCXV1 . I0N03  REAL  *8  3 

RVCXV2 . I0N03  REAL  *3  3 

RPCXHTP . PRAM  REAL  *  8  3 

RVCXXX . I0N03  REAL'S  3 

RVCXHBND . I0N03  REAL*  3  3 
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Line#  Source  Line 


95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 


C 

C 

C 

C 

C 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


SUBROUTINE  HUTLT ( RVSxDXHB ,  RVSxDYHB ) 


HUTLT  -- 

CALLED  BY: 


SUBROUTINE  TO  CALCULATE  BOUNDARY  TILT  FOR 
VALLEY-F2  30UNDARY 

TILTS 


AUTHOR : 

DATE: 

VERSION: 


MICHAEL  H.  REILLY  &  ERIC  L.  STRCBEL 

09/30/87 

1.0 


REVISED: 


09/30/87  --  VI . 0 .  Initial  revision. 


USES:  The  parameters  from  the  IONOl , 2 . 3  blocks. 


To  calculate  the  rate  of  change  of  the  boundary  in  the 
locally  horizontal  directions.  The  boundary  here  is 
the  boundary  between  the  linear  valley  profile  and  the 
F2  parabolic  profile  (for  those  cases  where  the  inter¬ 
section  is  visible  on  the  final  profile).  For  further 
details,  see  the  RADAR-C  report  referred  to  in  the 
documentation . 


RETURNS:  RVSxDXHB 

RVSxDYHB 


(d/dx)  Height  of  Bcundar 
(d/dy)  Height  of  Boundar 


INTEGER  IVCxCASE 

REAL* 8  RVSxDXHB,  RVSxDYHB,  RTLxD ,  RVCxHB ( 3 ) .  RVCxHBND 
REAL* 8  RVLXHUY2,  RVLxHUXE ,  RVCxFB ( 3 )  ,  RVLxHUX2 ,  RVLxHUHI 
REAL *8  RVCxB5 ( 3 ) ,  RVCxB6(3),  RVCxE5(3),  RVCxE6l3) 

REAL* 8  RVCXA5 ( 3 )  ,  RVCXA6 t  3 )  ,  RVCxVl ,  RVCxV2 ,  RVCxXX 
REAL *3  RVCxALPH ,  RVCxBETA ,  RVCxETl ,  RVCxET2 

COMMON  /IONOl/  RVCxALPH, RVCxBETA. RVCxETl, RVCXET2. RVCxFB  ? 
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Line#  Source  Line 


145  COMMON  / I0N02/  RVCxA5 . RVCXA6 , RVCxS5 , RVCxB6 . RVCxE5 , RVCxE6 

146  COMMON  / I0N03 /  RVCxVl,  RVCxV2 ,  RVCxXX,  IVCxCASE,  RVCxHBND 

147  C 

148  RTLxD  =  ( RVCxHB i 2 )  -  RVCxHBND)  /  RVCxHB ( 3 ) 

149  RVLXHUY2  =  -RTLxD 

150  RVLxHUXE  =  0.9604D00  *  RVCxHB ( 3 )  /  (2.0D00  «  RTLxD  *  RVCxFB 

151  RVLXHUX2  =  -RVLxHUXE  *  RVCxFB (1)  /  RVCxFB ( 3 ) 

152  RVLXHUH2  *  1.0D00 

153  RVSxDXHB  *  RVLxHUXE «RVCxB 5 ( 1 )  ♦  RVLxHUX2*RVCxB5 ( 3 i 

154  RVSxDXHB  *  RVSxDXHB  +  RVLXHUH2 «RVCxB6 ( 2 )  -  RVLxHUY2 * RVCxBS 

155  RVSxDXHB  *  -RVSxDXHB  /  RVCxVl 

156  RVSxOYHB  »  RVLxHUXE * RVCxES { 1 )  +  RVLxHUX2*RVCxE5 ( 3 ) 

157  RVSxDYHB  »  RVSxDYHB  ♦  RVLXHUH2  *RVCxE6  (  2  )  f  RVLXHUY2  «RVCxE6  ■■ 

158  RVSxDYHB  =  RVSxDYHB  /  RVCXV2 

159  RETURN 

160  END 

HUTLT  Local  Symbols 

Name  Class  Type  Size 

RVSXDYHB . param 

RVSXDXHB . param 

RVLXHUXE . local  REAL  *8  8 

RTLXD  .  local  REAL *8  8 

RVLXHUH2 . local  REAL*  8  8 

RVLXHUX2 . local  REAL'S  8 

RVLXHUY2 . local  REAL*  8  8 

IVCXCASE . I0N03  INTEGER*  4  4 

RVCXHB . IONOl  REAL  *8  24 

RVCXHBND . I0N03  REAL -3  3 

RVCXFB . IONOl  REAL  *3  24 

RVCXB5 . I0NO2  REAL*  8  2  4 

RVCXB6 . I0N02  REAL  *8  2  4 

RVCXE5 . I0N02  REAL  *8  24 

RVCXE6 . I0N02  REAL  *8  24 

RVCXA5 . I0N02  REAL  *8  24 

RVCXA6 . I0N02  REAL*  8  2  4 

RVCXV1 . I0N03  REAL  *  8  3 

RVCXV2 . I0N03  REAL  *8  8 

RVCXXX . I0N03  REAL  *8  8 

RVCXALPH . IONOl  REAL  *8  8 

RVCXBETA . IONOl  REAL  *8  8 

RVCXET1  .  IONOl  REAL *8  8 

RVCXET2 . IONOl  REAL  *  3  3 
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Line#  Source  Line 


163 

164  C 

165  C 

166  C 

167  C 

168  C 

169  C 

170  C 

171  C 

172  C 

173  C 

174  C 

175  C 

176  C 

177  C 
173  C 
179  C 

130  C 

131  C 

132  C 
183  C 
134  C 

185  C 

186  C 

187  C 

188  C 

189  C 

190  C 

191  C 

192  C 

193  C 

194  C 

195  C 

196  C 

197  C 

198  C 

199  C 

200  C 

201  C 

202 

203  C 

204 

205 

206 

207 

208  C 

209 

210 

211  C 

212 


SUBROUTINE  H5TLT 1 RVSxDXHB ,  RVSxDYHB ) 


H5TLT  --  SUBROUTINE  TO  CALCULATE  BOUNDARY  TILT  FOR 
F2-TOPSIDE  BOUNDARY 

CALLED  3Y :  TILTS 


AUTHOR:  MICHAEL  H.  REILLY  4  ERIC  L.  3TROBEL 

DATE:  39/30/87 

VERSION:  1.3 


REVISED:  09/30/87  --  VI . 0 .  Initial  revision. 


USES:  The  parameters  from  the  I0N02,3  blocks. 


To  calculate  the  rate  of  change  of  the  boundary  in  the 
locally  horizontal  directions.  The  boundary  here  is 
the  boundary  between  the  parabolic  F2  profile  and  the 
Bent  topside  profile.  For  further  details,  see  the 
RADAR-C  report  referred  to  in  the  documentation. 


RETURNS:  RVSxDXHB  (d/dx)  Height  of  Boundary. 

RVSxDYHB  id/dy)  Height  of  Boundary. 


INTEGER  ITCxA 

REAL  *  8  RVSxDXHB.  RVSxDYHB.  RVLxHSYD .  RVLxK5H2 
REAL* 8  RVCxB5  <  3 )  ,  RVCxB6<3),  RVCxE5(3).  RVCxE6(3> 

REAL  *  3  RVCxA5 ( 3 )  ,  RVCxA6(3).  RVCxVl .  RVCxVD 
REAL *3  RTCxA ,  RTCxB 

COMMON  / I0N02 /  RVCxA5 , RVCxA6 . RVCx85 . RVCx36 . RVCxE5 . RVCxES 
COMMON  /I0N03/  RVCxVl.  RVCxV2 ,  RTCxA.  ITCxA,  RTCxB 

RVLXH5H2  =*  1.0D00 
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Line#  Source  Line 


213  RVLXH5Y2  =  0.25D00 

214  RVSxDXHB  »  - ( RVLXH5H2 «RVCxB6 ( 2 )  +  RVLxH5Y2 *RVCxB6 ( 3 ) )  /  RVCxV 

215  RVSxDYHB  *  ( RVLxH5H2*RVCxE6 ( 2 )  +  RVLXH5Y2 *RVCxE6 ( 3 ) )  /  RVCxVl 

216  RETURN 

217  END 


H5TLT  Local  Symbols 

Name  Class  Type  Size 

RVSXDYHB . par  am 

RVSXDXHB . param 

RVLXH5H2 . local  REAL  *8  3 

RVLXH5Y2 . local  REAL  *  3  3 

ITCXA  .  I0N03  INTEGER* 4  4 

RVCXB5 . I0N02  REAL  *3  2  4 

RVCXB6 . I0N02  REAL  *3  24 

RVCXE5.  .  .  I0N02  REAL *8  24 

RVCXE6 . I0N02  REAL  *8  24 

RVCXA5 . I0N02  REAL  *8  24 

RVCXA6 . I0N02  REAL  *8  24 

RVCXV1 . I0N03  REAL  *8  '  8 

RVCXV  2 . I0N03  REAL  *8  8 

RTCXA . I0N03  REAL  *  8  8 

RTCXB  .  I0N03  REAL *8  3 


236 


Line#  Source  Line 


220 

221 

222 

223 

224 

225 

226 
227 
223 

229 

230 

231 

232 

233 

234 

235 

236 

237 
233 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 
269 


SUBROUTINE  H1PTLT ( IVSxSGN . RVSxDXHB ,  RVSxDYHB ) 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


H1PTLT  --  SUBROUTINE  TO  CALCULATE 
VALLEY-F1  (PARABOLIC) 

BOUNDARY  TILT  FOR 
BOUNDARY 

CALLED  BY: 

TILTS 

CALLS: 

DH1PDP 

AUTHOR : 

MICHAEL  H.  REILLY 

4  ERIC  L.  STRCBEL 

DATE : 

09/30/87 

VERSION: 

1 . 0 

REVISED: 

09/30/37  --  VI. 0. 

Initial  revision. 

USES : 

The  parameters  fro 

m  the  COMMON  blocks  . 

To  calculate 

the  rate  of  change  cf 

the  boundary  in  the 

locally  horizontal  directions.  The  boundary  here  is 
the  boundary  between  the  linear  valley  profile  and  the 
parabolic  FI  profile.  The  routine  DK1PDP  is  just 
d  (HIP)  /  d  (parameter).  For  further  details,  see  the 
RADAR-C  report  referred  to  xn  the  documentation. 

RETURNS:  RVSxDXHB  td/'dx)  Height  of  Boundary 

RVSxDYHB  (d/dy)  Height  of  Boundary 


INTEGER  IVSxSGN,  ITCxA 


REAL* 8  RVSxDXHB,  RVSxDYHB,  RVLxDl,  RVCxAl .  RVCxBl,  RVCxCl 
REAL-8  RVLxBB,  RVCxBO.  RVCxHU,  RVCxHL ,  RVCxHB ( 3 ) ,  RVCxFB > i 
REAL *3  RVLxHUXE .  RVLxBIXE,  RVLxClXE.  RVCxAO ,  RVLxHPXE 
REAL* 8  RVLxAlXl ,  RVLxBIXl,  RVLxHPXl ,  RVLxAlHl ,  RVLxBlHl 
REAL* 8  RVLxHPHl ,  RVLXHUX2 ,  RVLXB1X2,  RVLxClX2.  RVLxHPXl 
REAL* 3  RVLXB1H2,  RVLXC1H2 ,  RVLxHPH2 ,  RVLxHUY2 ,  RVLXB1Y2 
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Line#  Source  Line 


270 

271 

272 

273 

274 

275  C 

276 

277 

278 

279 

280 
281 

232  C 

233 

234 

235 

236 
287 

238 

239 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

31 3 

314 

315 

316 

317 
313 
319 


REAL* 8  RVLXC1Y2.  RVLxHPY2 .  RVCxB5(3),  RVCxB6 ( 3 )  ,  RVCxE5<3) 
REAL* 8  RVCxES ( 3 ) ,  RVCxVl ,  RVCxV2 ,  RVCxALPH,  RVCxBETA 
REAL  *8  RVCxE'T'l .  RVCxETE .  RVCxA5  '  3  )  .  RVCxA6 ( 3 ) 

REAL *8  RVCXF40.  RVCxF65,  RVCxKl .  RVCxXL ,  RVCxXU 
REAL *8  RTCxA ,  RTCxB ,  RTCxC .  RTCxD 

COMMON  / I0N01 /  RVCxALPH . RVCxBETA . RVCxETl . RVCxET2 , RVCxFS , RVCxHB 
COMMON  / ION02/  RVCxA5 . RVCxA6 . RVCxB5 , RVCxB6 , RVCxE5 . RVCxE6 
COMMON  / ION03 /  RVCxVl.  RVCxV2 .  RTCxA.  ITCxA.  RTCxB 
COMMON  /TEMPI/  RVCxF40 .  RVCxF65,  RVCxKl,  RVCxHL 
COMMON  /VAR1/  RVCxXL.  RVCxXU,  RVCxHU,  RVCxAO ,  RVCxBO 
COMMON  /VAR3/  RVCxAl .  RVCxBl.  RVCxCl,  RTCxC,  RTCxD 

RVLxDl  =«  DSQRT  l  RVCxB  1’RVCxBl  -  4 . 0D00  *  RVCxAl  ‘RVCxCl ) 

RVLxBB  *  RVCxBO  /  (RVCxHU  -  RVCxHL) 

RVLxHUXE  =  (0.98D00  *  RVCxHB i 3 ))«< 0 . 98D00  •  RVCxHB ( 3 ) ) 

RVLxHUXE  =  RVLxHUXE  /(2.0DOO  *  RVCxFB ( 3 )*( RVCxHB ( 2 ) -RVCxHU ) ) 
RVLxBIXE  *  RVCxBO  *  (-1.0D00  +  ■ RVCxFB ( 1 ) *  RVLxHUXE ) / 

#( RVCxHU  -  RVCxHL i)  i  RVCxFB ( 1 ) 

RVLxCIXE  »  RVCxAO / RVCxFB ( 1 )  ♦  RVCxHL* RVLxBB ‘RVLxHUXE 
CALL  DH1PDP (0 .0D00 ,  RVLxBIXE,  RVLxCIXE,  RVLxHPXE ,  RVLxDl, 
#IVSxSGN) 

RVLxAlXi  -  16.0D00  /  (RVCxHB (1)  «  RVCxHB ( 1 ) ) 

RVLxBIXl  a  32.0D00  /  RVCxHB (1) 

CALL  DH1PDP (RVLxAlXi ,  RVLxBIXl.  15.0D00.  RVLxHPXl ,  RVLxDl. 
#IVSxSGN) 

RVLxAlHl  =  -32  .  ODOO  ‘RVCxFB  i  2)  /  (  RVCX.-.3  ( 1 i  ‘RVCxHB  ( 1 )  ‘RVCxHB  ( 1  ■ 
RVLxBlHl  =  RVLxAlHl  «  RVCxHB i 1 ) 

CALL  DH1PDP (RVLxAlHl,  RVLxBIHl.  0..'00.  RVLxHPHl .  RVLxDl. 
#IVSxSGN) 

RVLxHUX2  =  -RVLxHUXE  *  RVCxFB  -,  1)  /  -,7CxF3  (  3 ! 

RVLXB1X2  =  RVLxBB  •  RVLxHUX2 
RVLxClX2  *  RVCxHL  *  RVLxBlX2 

CALL  DH1PDP ( 0 . 0D00 ,  RVLxBIXE ,  RVLxClX2,  RVLxHPXE,  RVLxDl. 
#IVSxSGN> 

RVLXB1H2  =  RVLxBB 
RVLXC1H2  *  RVCxHL  «  RVLxBB 

CALL  DH1PDP ( 0 . 0D00 ,  RVLXS1H2,  RVLxClH2.  RVLxHPH2 .  RVLxDl. 
#IVSxSGN) 

RVLXHUY2  «  -(RVCxHB  (2)  -  RVCxHU)  RVCxHB  (  3  : 

RVLXB1Y2  »  RVLxBB  *  RVLxHUY2 
RVLXC1Y2  »  RVCxHL  •  RVLx31Y2 

CALL  DH1PDP ( 0 . 0D00 ,  RVLxBlY2.  RVLxClYE,  RVLxHPYE ,  RVLxDl. 

♦IVSxSGN) 

RVSxDXHB  a  RVLxHPXE ‘RVCxB 5 • 1)  “  RVLxHPXl ‘RVCxB 5 ( 2 )  f 
#RVLxHPX2  *  RVCxB  5(3) 

RVSxDXHB  a  RVSxDXHB  *■  RVLxHPHl‘RVCx36  i  1 )  RVLxHPHD  *  RVCxB  6  2  ) 
#+  RVLxHPY2«RVCxB6 (3) 

RVSxDXHB  *  -RVSxDXHB  /  RVCxVl 

RVSxDYHB  »  RVLxHPXE‘RVCxE5 ( 1)  +  RVLxHPXl • RVCxE5 ( 2 )  * 
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Line#  Source  Line 


3  20  #RVLxHPX2  * RVCxE  5 i 3 ) 

321  RVSxDYHB  -  RVSxDYHB  +  RVLxHPHl 'RVCxE6 ( 1 i  +  RVLxHPH2«RVCxE6 { 2 ) 

322  tt  'r  RVLXHPY2  *  R VCxE  6 ( 3 ) 

32  3  RVSxDYHB  =>  RVSxDYHB  /  RVCxV2 

324  RETURN 

325  END 

H1PTLT  Local  Symbols 

Name  Class  Type  Size 

RVSXDYHB . param 

RVSXDXHB . param 

1VSXSGN . param 

RVLXHPXE . local  REAL  *  3  3 

RVLXD1 . local  REAL*  3  3 

RVLXHUXE . local  REAL  *  3  3 

RVLXA1X1 . local  REAL  *3  3 

RVLXB1X1 . local  REAL'S  3 

RVLXB1X2 . local  REAL'S  3 

RVLXB1Y2 . local  REAL'S  S 

RVLXC1X2 . local  REAL'S  8 

RVLXC1Y2 . local  REAL'S  3 

RVLXBB . local  REAL' 8  3 

RVLXB1XE . local  REAL'S  3 

RVLXHPH1 . local  REAL '3  3 

RVLXC1XE . local  REAL'S  3 

RVLXHPH2 . local  REAL'S  3 

RVLXHPX1 . local  REAL '3  3 

RVLXHPX2 . local  REAL' 3  3 

RVLXHPY2 . local  REAL' 3  3 

RVLXKUX2 . local  REAL'S  3 

RVLXHUY2 . local  REAL '8  3 

RVLXA1H1 . local  REAL '3  3 

RVLXB1H1 . local  REAL'S  3 

RVLXB1H2 . local  REAL '  8  3 

RVLXC1H2 . local  REAL'S  3 

RVCXAQ . VAR1  REAL'S  3 

RVCXB5 . I0N02  REAL'S  2  4 

RVCXB6 . I0N02  REAL'S  2  4 

RVCXE5 . I0N02  REAL'S  2  4 

RVCXE6 . I0N02  REAL'S  2  4 

RVCXV1 . I0NO3  REAL'S  3 

RVCXV2 . I0N03  REAL '8  3 

RVCXALPH . IONOl  REAL'S  3 

RVCXBETA . I0N01  REAL'S  3 

RVCXET1  .  IONOl  REAL'S  3 

RVCXET2  .  IONOl  REAL'S  3 

RVCXA5 . I0N02  REAL'S  24 
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H1PTLT  Local  Symbols 


Name  Class  Type  Size 

RVCXA6 . I0N02  REAL  *8  24 

RVCXF40 . TEMPI  REAL  *  8  3 

RVCXF65  .  TEMPI  REAL « 3  8 

RVCXK1 . TEMPI  REAL*  8  3 

RVCXXL . VAR1  REAL  *  8  3 

R VC XXII . VAR1  REAL  *  8  3 

RTCXA  .  I0N03  REAL*3  8 

RTCXB . 20N0  3  REAL  *  3  3 

RTCXC . VAR  3  REAL  "3  3 

RTCXD . VAR  3  REAL'S  3 

ITCXA  .  ICN03  INTEGER *4  4 

RVCXA1 . VAR  3  REAL'S  3 

RVCXB1 . VAR 3  REAL  *  3  3 

RVCXC1 . VAR3  REAL'S  8 

RVCXBO . VAR1  REAL  *3  3 

RVCXHU . VAR1  REAL  *8  3 

RVCXHL . TEMPI  REAL  *  3  3 

RVCXHS . I0M01  REAL  *3  24 

RVCXFB . I0N01  REAL  *8  2  4 
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323 

329 

3  3  C  C 

331  C 

332  C 

333  C 

334  C 

335  C 

336  C 

337  C 

338  C 

339  C 

340  C 

341  C 

342  C 

343  C 

344  C 

345  C 

346  C 

347  C 

348  C 

349  C 

350  C 

351  C 

352  C 

353  C 

354  C 

355  C 

356  C 

357  C 

358  C 

359  C 

360  C 

361  C 

362  C 

363  C 

364  C 

365  C 

366  C 

367  C 

368  C 

369  C 

370  C 

371  C 

372  C 

373 

374  C 

375 

376 

377  C 


SUBROUTINE  DH1PDP ( RVSxAlP ,  RVSxBlP .  RVSxClP,  RVSxDD.  RVSxD 

#IVSxSGN) 

DH1PDP  --  SUBROUTINE  TO  CALCULATE  THE  DERIVATIVE  OF  THE 
30UNDARY  HEIGHT  W.R.T.  A  PARTICULAR  PARAMETER. 

CALLED  BY:  H1PTLT 

AUTHOR:  MICHAEL  H.  REILLY  &  ERIC  L.  STROBEL 

DATS:  09/30/37 

VERSION:  1.0 

REVISED:  09/30/87  —  VI. 0.  Initial  revision. 


USES:  RVSxA, B , C1P  The  partials  of  the  para¬ 

bolic  profile  parameters  w.r 
the  parameter  of  interest. 

RVSxDl  The  discriminant  of  the  par 

bolic  parameters. 

IVSxSGN  Determines  which  of  the  sol 

of  the  quadratic  eqn.  apples 

To  calculate  the  partial  derivative  of  HIP  with  respect  to 
the  chosen  parameter.  For  further  details,  see  the 
RADAR-C  report  referred  to  in  the  documentation. 


RETURNS:  RVSxDD  The  aforementioned  partial 

derivative . 


INTEGER  IVSxSGN 

REAL  *  8  RVSxAlP,  RVSxBlP,  RVSxClP.  RVSxDD.  RVSxDl.  RVLxHl 
REAL-8  RVCxAl,  RVCxBl.  RVCxCl,  RVCxHIP.  RVCxHCP 


Line# 

Source  Line 

373 

COMMON 

/VAR3 /  RVCxAl.  RVCxBl,  RVCxCl.  RVCxHIP.  RVCxHIP 

379 

C 

380 

RVLxHl 

3 

RVCxHIP 

331 

RVSxDD 

3 

(-RVLxHl  *  IYSxSGN*RVCxCl / RVSxDl !  *  RVSxAlP 

382 

RVSxDD 

= 

RVSxDD  +  il.ODOO  -  IVSxSGN* RVCxBl / RVSxDl / 

333 

#  *RV5x31?/ 

.  0D00 

334 

RVSxDD 

= 

i RVSxDD  +  IVSxSGN* (RVCxAl/RVSxDl)  *  RVSxCl?) 

385 

#/  RVCxAl 

386 

RETURN 

387 

END 

DH1PDP 

Local  Symbols 

Name 

Class 

Type 

Size 

IVSXSGN 

.  param 

RVSXD1 . 

.  param 

RVSXDD . 

.  param 

RVSXC1P 

.  param 

RVSXB1P 

.  param 

RVSXA1? 

.  param 

RVLXH1 . 

.  local 

REAL *8 

3 

RVCXA1 . 

.  VAR  3 

REAL  *  3 

3 

RVCXB1. 

.  VAR3 

REAL*  3 

3 

RVCXC1 . 

.  VAR  3 

REAL  *  8 

3 

RVCXHIP 

.  VAR  3 

REAL* 8 

3 

RVCXH2P 

.  VAR  3 

REAL *8 

3 

242 


Line#  Source  Line 


390 

391  C 

392  C 

393  C 

394  C 

395  C 

396  C 

397  C 
393  C 

399  C 

400  C 

401  C 

402  C 

403  C 

404  C 

405  C 

406  C 

407  C 
403  C 

409  C 

410  C 

411  C 

412  C 

413  C 

414  C 

415  C 

416  C 

417  C 
413  C 

419  C 

420  C 

421  C 

422  C 

423  C 

424  C 

425  C 

426  C 

427  C 
423  C 

429  C 

430  C 

431  C 

432 

433  C 

434 

435 

436 

437 

438 

439 


SUBROUTINE  H4TLT ( IVSxSN ,  RVSxDXHB ,  RVSxDYHB ) 


H4TLT  —  SUBROUTINE  TO  CALCULATE  BOUNDARY  TILT  FOR 
PARABOLIC  F1-F2  BOUNDARY 

CALLED  BY:  TILTS 

CALLS:  DH4DP 


AUTHOR : 
DATS  : 
VERSION: 


REVISED:  09/30/37  --  VI . 0 .  Initial  revision. 


USES:  The  parameters  from  the  COMMON  blocks . 


To  calculate  the  rate  of  change  of  the  boundary  in  c.oe 
locally  horizontal  directions.  .he  boundary  here  is 
the  boundary  between  the  parabolic  FI  profile  and  tne 
parabolic  F2  profile.  The  routine  DH4DP  is  just 
d  (H4)  ■■  d  (parameter).  For  furtner  details,  see  tne 
RADAR-C  report  referred  to  in  the  documentation. 


RETURNS:  RVSxDXHB  id,dx)  Height  of  3ouncar 

RVSxDYHB  <d/ay)  Height  of  3cundar 


INTEGER  IVSxSN.  ITCxA 

REAL *8  RVSxDXHB,  RVSxDYHB,  RVLxDD .  RVCxA 2,  RVCXB2.  RVCxCl 
REAL'S  RVCXHT4.  RVCxHB ( 3 ) .  RVCxFB(3;,  RVLxBBl .  RVCXHT3 
REAL* 8  RVLxBB 2 .  RVLxA2Xl .  RVLxB2Xl .  RVLxK4Xl .  RVLxADXl 
REAL* 3  RVLxB2X2 ,  RVLxC2X2,  RVLxH4X2 .  RVLxA2Hl .  RVLxBCHl 
REAL* 3  RVLXH4H1.  RVLxB2H2.  RVLxC2H2 ,  RVLxH4H2 .  RVLxADYl 
REAL* 8  RVLxS 2Y2 ,  RVLxC2Y2,  RVLXH4Y2,  RVCxB5(3).  RVCxBo ■  2 


MICHAEL  H.  REILLY  4  ERIC  L.  STROBED 
39.  30  37 
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Line#  Source  Line 


440  REAL  *  S  RVCx£5<3),  RVCx£6(3).  RVCxVl .  RVCxV2 .  RVCxALFH 

441  REAL  *  3  RVCxBETA ,  RVCxETl ,  RVCxET2 ,  RVCxA5 ( 3 )  .  RVCxA6 ( 3 , 

442  REAL *8  RTCxA ,  RTCxB 

443  C 

444  COMMON  /I0NO1/  RVCxALPH . RVCxBETA . RVCxETl , RVCxET2 . RVCxFB . RVCxHB 

445  COMMON  /I0N02/  RVCxA5 , RVCxA6 , RVCx35 . RVCxB6 , RVCxE5 , RVCxES 

446  COMMON  /I0N03/  RVCxVl.  RVCxV2 .  RTCxA.  ITCxA.  RTCxB 

447  COMMON  / VAR4/  RVCXA2 , RVCxB2 , RVCxC2 , RVCxHT3 , RVCxHT4 

448  C 

449  RVLxD2  =  DSQRT ( RVCxB2«RVCxB2  -  4 . ODOO «RVCxA2«RVCxC2 1  * IVSxSM 

450  #*INTSIGN (RVCxB2) 

451  RVCXHT4  *  -(RVCx32  -  RVLxD2)  /  1 2. ODOO  *  RVCxA2 ) 

452  RVLxBBl  *  16. ODOO  /  i RVCxHB (1;  *  RVCxHB l 1 ) i 

453  RVLX3B2  =  1.0D00  /  t RVCxHB ( 3 !  *  RVCxHB ( 3 > ) 

454  RVLxACXl  =  -RVLxBBl 

455  RVLXB2X1  =  3 2. ODOO  /  RVCxHB ( 1 ■ 

456  CALL  DH4DP ( RVLxACXl ,  RVLxB2Xl.  -15. ODOO,  RVLXH4X1 ,  RVLxD2 i 

457  RVLXA2H1  =  2. ODOO  •  RVLxBBl  «  RVCxFB i 2 !  /  RVCxHB ( 1 ) 

458  RVLXB2H1  =»  -RVLxA2Hl  *  RVCxHB  i  1  j 

459  CALL  DH4DP  < RVLxA2Hl ,  RVLXB2H1.  0.0D00,  RVLxH4Hl ,  RVLxD2> 

460  RVLXA2X2  =*  RVLxBB2 

461  RVLXB2X2  a  -2. ODOO  «  RVCxHB ( 2 )  *  RVLXBB2 

462  RVLXC2X2  =  (-RVLxB2X2  *  RVCxHB ( 2 ) / 2 . ODOO )  -  1 . ODOO 

463  CALL  DH4DP ( RVLXA2X2 ,  RVLxB2X2 .  RVLxC2X2 .  RVLxH4X2 ,  RVLxDZ) 

464  RVLXB2H2  *  -2. ODOO  *  RVCxFB (3)  *  RVLx3B2 

465  RVLXC2H2  ■  -  RVLxB2H2  -  RVCxHB ( 2 ) 

466  CALL  DH4DP ( 0 . ODOO ,  RVLxB2H2,  RVLxClH2,  RVLxH4H2 .  RVLxDl) 

467  RVLXA2Y2  »  RVLxB2H2  /  RVCxHB ( 3 ) 

468  RVLXB2Y2  »  -2. ODOO  »  RVLxA2Y2  *  RVCxHB (2) 

469  RVLXC2Y2  =  RVLxA2Y2  *  RVCxHB (2)  «  RVCxHB ( 2 ) 

470  CALL  DH4DP (RVLXA2Y2 .  RVLxB2Y2,  RVLxC2Y2.  RVLxH4Y2 .  RVLxD2 

471  RVSxDXHB  *  RVLxH4Xl*RVCxB5 ( 2 )  +  RVLxH4X2*RVCxB5 < 3 ) 

472  #RVLxH4Hl*RVCxB6 (1) 

473  RVSxDXHB  *  RVSxDXHB  *  RVLxH4H2 « RVCxB6 ! 2 )  +  RVLXH4Y2 «RVCx35 ■ 3 

474  RVSxDXHB  =  -RVSxDXHB  /  RVCxVl 

475  RVSxOYHB  *  RVLxH4Xl «RVCxE5 ( 2 !  RVLxH4X2*RVCxE5 ' 3 )  - 

476  #RVLxH4Hl-RVCxE6 (1) 

477  RVSxDYHB  »  RVSxDYHB  +  RVLxH4H2«RVCxS6 (2)  +  RVLXH4Y2 * RVCxZs  3 

478  RVSxDYHB  »  RVSxDYHB  /  RVCxV2 

479  RETURN 

480  END 

H4TLT  Local  Symbols 

Name  Class  Type  Size 

RVSXDYHB . param 

RVSXDXHB . param 

IVSXSN . param 
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H4TLT  Local  Symbols 


Name 

RVLXH4H1 . 
RVLXBB1  . 
RVLXH4H2. 
RVLXBB2  . 
RVLXD2 .  . 
RVLXA2X1 . 
RVLXA2X2 . 
RVLXB2X1 . 
RVLXA2Y2 . 
RVLXB2X2 . 
RVLXB2Y2 . 
RVLXC2X2 . 
RVLXC2Y2 . 
RVLXH4X1 . 
RVLXH4X2 . 
RVLXH4Y2 . 
RVLXA2H1. 
RVLXB2H1 . 
RVLXB2H2. 
RVLXC2H2. 
ITCXA  .  . 
RVCXA2 •  . 
RVCXB2 .  . 
RVCXC2.  . 
RVCXHT4  . 
RVCXHB .  . 
RVCXFB .  . 
RVCXHT3  . 
RVCXB5 .  . 
RVCXB6 .  . 
RVCXE5 .  . 
RVCXE6 .  . 
RVCXV1 .  . 
RVCXV2 .  . 
RVCXALPH . 
RVCXBETA . 
RVCXET1  . 
RVCXET2  . 
RVCXA5 .  . 
RVCXA6 .  . 
RTCXA  .  . 
RTCXB  .  . 


Class 

Type 

local 

REAL 

8 

local 

REAL 

3 

local 

REAL 

3 

local 

REAL 

3 

local 

REAL 

3 

local 

REAL 

3 

local 

REAL 

3 

local 

REAL 

3 

local 

REAL 

3 

local 

REAL 

3 

local 

REAL 

3 

local 

REAL 

3 

local 

REAL 

3 

locai 

REAL 

3 

local 

REAL 

3 

local 

REAL 

3 

local 

REAL 

3 

local 

REAL 

3 

local 

REAL 

8 

local 

REAL 

3 

I0NO3 

INTEGER *4 

VAR  4 

REAL 

*  3 

VAR4 

REAL 

*3 

VAR4 

REAL 

-3 

VAR4 

REAL 

*3 

I0M01 

REAL 

*3 

I0N01 

REAL 

*3 

VAR4 

REAL 

*3 

I0N02 

REAL 

•8 

I0N02 

REAL 

*3 

I0NO2 

REAL 

*8 

I0N02 

REAL 

•3 

I0N03 

REAL 

*8 

I0N03 

REAL 

•3 

I0N01 

REAL 

*8 

IONOi 

REAL 

*  3 

IONOl 

REAL 

*  3 

IONOI 

REAL 

•3 

I0N02 

REAL 

*8 

I0N02 

REAL 

*  3 

I0N03 

REAL 

*8 

I0N0  3 

REAL 

*3 

ine#  Source  Line 


433 

434  C 

485  C 

486  C 

487  C 
438  C 

489  C 

490  C 

491  C 

492  C 

493  C 

494  C 

495  C 

496  C 

497  C 

498  C 

499  C 

500  C 

501  C 

502  C 

503  C 

504  C 

505  C 

506  C 

507  C 

508  C 

509  C 

510  C 

511  C 

512  C 

513  C 

514  C 

515  C 

516  C 

517  C 
513  C 

519  C 

520  C 

521  C 

522  C 

523  C 

524  C 

525 

526 

527  C 

528 

529  C 

530 

531 

532 


SUBROUTINE  DH4DP ( RVSXA2D .  RVSXB2D,  RVSxC2D,  RVSxH4D.  RVSxD2) 


DH4DP  --  SUBROUTINE  TO  CALCULATE  THE  DERIVATIVE  OF  THE 
BOUNDARY  HEIGHT  W.R.T.  A  PARTICULAR  PARAMETER. 


CALLED  3Y :  H4TLT 


AUTHOR:  MICHAEL  H.  REILLY  &  ERIC  L.  STROBEL 

DATE:  09/30/37 

VERSION:  1.0 


REVISED: .  P9/30./87  —  VI. 0,  Initial  .revision. . 


USES:  RVSxA , 3 , C2D  The  partials  of  the  para¬ 

bolic  profile  parameters  w.r.t. 
the  parameter  of  interest. 

RVSxD2  The  discriminant  of  the  para¬ 

bolic  parameters. 


To  calculate  the  partial  derivative  of  H4  with  respect  to 
the  chosen  parameter.  For  further  details,  see  the 
RADAR-C  report  referred  to  in  the  documentation. 


RETURNS:  RVSxH4D  The  aforementioned  partial 

derivative . 


REAL  *  8  RVSXA2D.  RVSxB2D.  RVSXC2D ,  RVSxH4D,  RVSxD2 ,  RVCxHT4 
REAL  *  8  RVCXA2,  RVCx32 .  RVCxC2 ,  RVCxHT3 

COMMON  /VAR4 /  RVCxA2 . RVCxB2 , RVCxC2 . RVCXHT2 . RVCXHT4 

RVSXH4D  =  1-RVCXHT4  +■  RVCxC2/RVSxD2 )  •  RVSxA2D 

RVSXH4D  =  RVSXH4D  -'(l.ODOO  +  RVCxB2/RVSxD2 ) *RVSxB2D/ 2 . 0D0C 

RVSXH4D  =  t RVSXH4D  *  ( RVCxA2/RVSxD2 ) « RV5xC2D ) / RVCxA2 
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ine#  Source  Line 


533  RETURN 

534  END 

DH4DP  Local  Symbols 

Name  Class  Type 

RVSXD2 . param 

RVSXH4D . param 

RVSXC2D . param 

RVSXB2D . param 

RVSXA2D . param 

RVCXC2 . VAR  4  REAL'S 

RVCXHT3 . VAR  4  REAL" 3 

RVCXHT4  .  VAR 4  REAL'S 

RVCXA2 . VAR  4  REAL'S 

RVCXB2 . VAR  4  REAL'S 


ine#  Source  Line 


537  SUBROUTINE  H1LTLT (RVSxDXHB .  RVSxDYHB ) 

538  C 

539  C - 

540  C 

541  C  H1LTLT  --  SUBROUTINE  TO  CALCULATE  BOUNDARY  TILT  FOR 

542  C  LINEAR  VALLEY  -  LINEAR  FI  BOUNDARY 

543  C 

544  C  CALLED  3Y:  TILTS 

545  C 

546  C  CALLS:  DH1LDP 

547  C 

548  C - 

549  C 

550  C  AUTHOR: 

551  C 

552  C  DATE: 

553  C 

554  C  VERSION: 

555  C 

556  C - 

557  C 

558  C  REVISED:  09/30/37  --  VI. 0.  Initial  revision. 

559  C 

560  C - 

561  C 

562  C  USES:  The  parameters  from  the  COMMON  blocks. 

563  C 

564  C 

565  C  To  calculate  the  rate  of  change  of  the  boundary  in  the 

566  C  locally  horizontal  directions.  T.;e  boundary  here  is 

567  C  the  boundary  between  the  linear  valley  profile  and  the 

568  C  linear  FI  profile.  The  routine  DH1LD?  is  just 

569  C  d  \ H 1 L )  /  d  (parameter) .  For  further  details,  see  the 

570  C  RADAR-C  report  referred  to  in  the  documentation. 

571  C 

572  C 

573  C  RETURNS:  RVSxDXHB  d/dx,  Height  of  3oundar 

574  C 

575  C  RVSxDYHB  id/dy)  Height  of  Bcuncar 

576  C 

577  C - 

578  C 

579  INTEGER  ITCxA 

580  C 

531  REAL  *8  RVSxDXHB.  RVSxDYHB.  RVLxBBl.  RVC.xSO ,  RVCxHU.  RVCxH 

582  REAL  *  8  RVLxHUXE .  RVCxHB < 3 )  .  RVCxFB i 3  i  , RVLxYSXl ,  RVCxHl 

583  REAL *8  RVLXBB2 .  RVCxYS .  RVLxAOXE.  RVCxAO .  RVLxBGXE.  RVLxH 

534  REAL* 8  RVLxSIXl.  RVLxHIXl .  RVLxSIHl .  RVLxHlHl .  RVLxHUXl 

535  REAL* 3  RVLxA0X2 .  RVLxB0X2 .  RVLxSlX2.  RVLxHIXl,  RVLxAGKD 

586  REAL* 8  RVLx30H2 .  RVLXS1H2.  RVLxHlH2 .  RVLxHUY2 ,  RVLxACYI 


MICHAEL  H.  REILLY  4  ERIC  L.  STROBEL 
09/30/37 
1 . 0 
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Line#  Source  Line 


587 

588 

589 

590 

591 

592  C 

593 

594 

595 

596 

597 

598 

599  C 

600 
601 
602 

603 

604 

605 

606 
607 
603 

609 

610 
611 
612 

613 

614 

615 

616 

617 

618 

619 

620 
621 
622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 


REAL* 3  RVLXB0Y2.  RVLxSlY2.  RVLxHlY2 ,  RVCxB5(3),  RVCxB6 ( 3 ) 

REAL* 8  RVCxE5 ( 3 ) ,  RVCxE6(3),  RVCxVl ,  RVCxV2 ,  RVCxALPH 
REAL *8  RVCxBETA ,  RVCxETl,  RVCXET2 ,  RVCxA5 ( 3 ) ,  RVCxA6 ( 3 ) 

REAL* 8  RVCxF 40 ,  RVCxF6  5,  RVCxKl ,  RVCxXL,  RVCxXU ,  RVCxHBl 
REAL'S  RTCxA .  RTCxB ,  RTCxC .  RTCxD ,  RTCxE 

COMMON  / I0N01 /  RVCXALPH , RVCxBETA . RVCxETl . RVCxET2 . RVCxFB , RVCxHB 
COMMON  / ION02/  RVCxA5 . RVCXA6 , RVCxB 5 . RVCxB6 , RVCxES , RVCxE6 
COMMON  / ION03/  RVCxVl.  RVCxV2 ,  RTCxA,  ITCxA,  RTCxB 
COMMON  /TEMPI/  RVCxF40,  RVCxF6  5,  RVCxKl.,  RVCxHL 
COMMON  / VAR1/  RVCxXL.  RVCxXU,  RVCxHU .  RVCxAO ,  RVCxBO 
COMMON  / VAR2/  RVCxHBl . RVCxH2 , RVCxYS , RTCxC , RTCxD , RTCxE 

RVLxBBl  =  RVCxBO  /  (RVCxHU  -  RVCxHL) 

RVLxHUXE  =  0 . 9604DOO  *  RVCxHB ( 3 )  *  RVCxHB ( 3  >  /  (2.0D00  « 

#RVCxFB ( 3 )  «  (RVCxHB (2)  -  RVCxHU)) 

RVLxYSXl  =  RVCxHB (3)  «  RVCxHB (3)  /  (2.0DOO  *  RVCxFB ( 3 )  * 

# (RVCxHB (2)  -  RVCxH2 ) ) 

RVLXBB2  =  RVCxFB (2)  /  (RVCxYS  «  RVCxYS) 

RVLxAOXE  =  RVCxAO / RVCxFB (1)  +  RVCxHL "RVLxBBl 'RVLxHUXE 
RVLxBOXE  =  RVCxBO /RVCxFB (1)  -  RVLxBBl 'RVLxHUXE 
CALL  DH1LDP (RVLxAOXE,  0.0D00,  RVLxBOXE,  0 . ODOO ,  RVLxHIXE) 
RVLxSIXl  =»  1 .  ODOO  /  RVCxYS 

IF  ( RVCxYS. NE.l. ODOO!  RVLxSIXl  =  RVLxSIXl  -  RVLXBB2' RVLxYSXl 
CALL  DH1LDP (0. ODOO, 0. ODOO. 0.  ODOO,  RVLxSIXl.  RVLxHIXl ) 

RVLxSIHl  *  0 . ODOO 

IF  (RVCxYS. NE.l. ODOO)  RVLxSIHl  =  0.75D00  *  RVLxBB2 
CALL  DH1LDP ( 0. ODOO. 1. ODOO. 0. ODOO,  RVLxSIHl.  RVLxHIHl ) 

RVLXHUX2  »  -RVLxHUXE  «  RVCxFB ( 1 )  /  RVCxFB (3) 

RVLXA0X2  =  RVCxHL  «  RVLxBBl  »  RVLXHUX2 
RVLxB0X2  =  -RVLxBBl  •  RVLxHUXl 
RVLXS1X2  =  O.ODOQ 

IF  (RVCxYS. NE.l. ODOO)  RVLXS1X2  =  RVLxBB2*RVLxYSXl 'RVCxFB i 2 ; 
#/RVCxFB (3) 

CALL  DH1LDP ( RVLxA0X2 ,  O.ODOO,  RVLxB0X2 ,  RVLxSlX2.  RVLxHIXl) 
RVLXA0H2  =  RVCxHL  *  RVLxBBl 
RVLXB0H2  =  -RVLxBBl 
RVLXS1H2  =  O.ODOO 

IF  (RVCxYS. NE.l. ODOO)  RVLxSlH2  =  -RVLxBBl 

CALL  DH1LDP ( RVLXA0H2 ,  O.ODOO,  RVLxB0H2.  RVLxSIHl .  RVLxHIHl, 

RVLXHUY2  »  -(RVCxHB (2)  -  RVCxHU)  /  RVCxHB i 3 i 

RVLXA0Y2  »  RVCxHL  '  RVLxBBl  '  RVLxHUYl 

RVLXBOY2  »  -RVLxBBl  *  RVLxHUY2 

RVLXS1Y2  »  O.ODOO 

IF  (RVCxYS. NE.l. ODOO)  RVLxSlY2  =  RVLxBBl * ( RVCxHB  < 2 ) -RVCxHL 
#/RVCxHB ( 3 ) 

CALL  DH1LDP (RVLXA0Y2 ,  O.ODOO,  RVLxBOY2 ,  RVLxSIYI.  RVLxHIYZ  i 
RVSxDXHB  a  RVLxHIXE « RVCxB  5  (1)  RVLxHIXl  'RVCxB 5  (  2  ) 

#f  RVLxHlX2*RVCxB5 ( 3 ) 

RVSxDXHB  =  RVSxDXHB  f  RVLxHIHl 'RVCxB6  ( 1 )  *■  RVLxHlH2'RVCx36  2 
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637  #+  RVLxHlY2*RVCxB6 (3) 

538  RVSxDXHB  =  -RVSxDXHB  /  RVCxVl 

639  RVSxDYHB  *  RVLxHlXE-RVCxE5 ( 1 )  +  RVLxHIXl -RVCxES ( 2 > 

640  #+  RVLxHlX2*RVCx£5 ( 3 ) 

641  RVSxDYHB  =  RVSxDYHB  +  RVLxHIHl «RVCxE6 i 1 )  +  RVLxHlH2 -RVCxE 

642  #  +  RVLxHlY2*RVCxE6(3) 

643  RVSxDYHB  =  RVSxDYH3  /  RVCxV2 

544  RETURN 

545  END 


H1LTLT  Local  Symbols 


Name  Class  Type  Size 

RVSXDYHB . param 

RVSXDXHB . param 

RVLXYSXi . local  REAL- a  3 

RVLXB81  .  local  REAL- 3  3 

RVLXBB2  .  local  REAL- 8  3 

RVLXHUXE . local  REAL -3  8 

RVLXA0X2 . local  REAL-8  8 

RVLXA0Y2 . local  REAL-3  3 

RVLXB0X2 . local  REAL -8  8 

RVLXB0Y2 . local  REAL -3  3 

RVLXS1H1 . local  REAL-8  -  8 

RVLXS1H2 . local  REAL-8  3 

RVLXH1X1 . local  REAL-8  3 

RVLXH1X2 . local  REAL -3  3 

RVLXH1Y2 . local  REAL- 8  8 

RVLXS1X1 . local  REAL- 8  3 

RVLXS1X2 . local  REAL-8  3 

RVLXAOXE . local  REAL -8  3 

RVLXS1Y2 . local  REAL- 8  8 

RVLXBOXE . local  REAL-8  3 

IVLXH1XE . local  REAL  *8  3 

RVLXHUX2 . local  REAL -8  3 

IVLXHUY2 . local  REAL*  8  3 

RVLXA0H2 . local  REAL- 8  8 

’.VLXB0H2 . local  REAL -3  3 

IVLXH1H1 . local  REAL- 3  3 

IVLXH1H2 . local  REAL- 8  8 

VTCXE . VAR2  REAL*  8  3 

ITCXA  .  I0N03  INTEGER *4  4 

IVCXBO . VAR1  REAL -8  3 

IVCXHU . VAR1  REAL  *8  3 

IVCXHL . TEMPI  REAL  *8  3 

IVCXHB . IONOl  REAL -8  24 

IVCXFB . IONOl  REAL  *8  24 

’VCXH2 . VAR  2  REAL -8  3 


H1LTLT  Local  Symbols 


Marne  Class  Type  Size 

RVCXYS . VAR  2  REAL'S  3 

RVCXAO . YAR1  REAL  *8  3 

RVCXB5 . I0N02  REAL'S  24 

RVCXB6 . I0N02  REAL'S  24 

RVCXE5 . I0N02  REAL'S  24 

RVCXE6 . I0NO2  REAL'S  24 

RVCXV1 . I0N03  REAL'S  3 

RVCXV2 . I0N03  REAL'S  3 

RVCXALPH . TONOl  REAL  *8  3 

RVCXBETA . I0NO1  REAL'S  3 

RVCXET1  .  I0N01  REAL'S  3 

RVCXET2  .  I0NO1  REAL'S  3 

RVCXA5 . I0N02  REAL'S  2  4 

RVCXA6 . I0N02  REAL'S  24 

RVCXF40  .  TEMPI  REAL* 8  8 

RVCXF65  .  TEMPI  REAL *8  3 

RVCXK1 . TEMPI  REAL' 8  3 

RVCXXL . VAR1  REAL' 8  3 

RVCXXU . VAR1  REAL'S  8 

RVCXHB1  .  VAR 2  REAL '8  3 

RTCXA  .  I0N03  REAL'S  3 

RTCXB  .  I0N03  REAL '8  3 

RTCXC . VAR2  REAL  *8  3 

RTCXD . VAR  2  REAL' 8  3 
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SUBROUTINE  DH1LDP (RVSxAOP .  RVSxHID,  RVSxBQP .  RVSxSIP .  RVSxDD) 


DH1LDP  --  SUBROUTINE  TO  CALCULATE  THE  DERIVATIVE  OF  THE 
30UNDARY  HEIGHT  W.R.T.  A  PARTICULAR  PARAMETER. 

CALLED  BY: 

H1LTLT 

AUTHOR : 

MICHAEL  H.  REILLY  4  ERIC  L.  STROBEL 

DATS : 

09/30/87 

VERSION: 

1.0 

REVISED: 

09/30/87  --  VI. 0.  Initial  revision. 

USES  : 

RVSxA.30?  The  partials  of  the  linear 

valley  profile  parameters  w.r 
the  parameter  of  interest. 

RVSxHID. 51?  The  partials  of  the  linear 

FI  prrfile  parameters  w.r.t. 
the  parameter  of  interest. 

To  calculate  the  partial  derivative  of  H1L  with  respect  to 
the  chosen  parameter.  For  further  details,  see  the 
RADAR-C  report  referred  to  in  the  documentation. 

RETURNS : 

RVSxDD  The  aforementioned  partial 

derivative . 

REAL *8  RVSxAOP,  RVSxHID,  RVSxBOP.  RVSxSIP.  RVSxDD.  RTLx. 
REAL *8  RVCxSLl ,  RVCxBO.  RVCxHBl .  RVCxAO .  RVCxXL .  RVCxXY 
REAL *8  RVCxHU ,  RVCxH2 ,  RVCxYS .  RTCxA ,  RTCxB 


COMMON  /VAR1/  RVCxXL.  RVCxXU.  RVCxHU.  RVCxAO.  RVCxBC 
COMMON  /VAR2/  RVCxHBl , RVCxH2 , RVCxYS . RVCxSLl , RTCxA , RTCxB 
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698  RTLxl  »  RVCxSLl  -  RVCxBO 

699  RVSxDD  =  RTLxl  *  (RVSxAOP  +  0 . 7 5DQ0 * RVCxSLl 'RVSxHID ) 

700  RVSxDD  =  RVSxDD  +  { RVCxHBl'RVCxSLl  +  RVCxAO )  «  RVSxBOP 

701  RVSxDD  =  (RVSxDD  -  ( RVCxHBl «RVCxB0  +•  RVCxAO ) 'RVSxSIP ) 

702  #/  (RTLxl  «  RTLxl) 

703  RETURN 

704  END 


DH1LDP  Local  Symbols 

Name  Class  Type  Size 

RVSXDD . par  am 

RVSXS1? . param 

RVSXBOP . param 

RVSXHID . param 

RVSXAOP . param 

RTLX1  .  local  REAL'S  8 

RVCXSL1  .  VAR2  REAL' 8  3 

RVCXBO . VAR1  REAL '8  3 

RVCXHB1  .  VAR2  REAL '8  3 

RVCXAO . VAR1  REAL '8  3 

RVCXXL . VAR1  REAL  *8  8 

RVCXXU . VAR1  REAL'S  3 

RVCXHU . VAR1  REAL  *8  3 

RVCXH2 . VAR  2  REAL  *3  3 

RVCXYS . VAR2  REAL'S  3 

RTCXA . VAR2  REAL '8  3 

RTCXB . VAR  2  REAL  *3  3 
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707  SUBROUTINE  H2TLT ( RVSxDXHB ,  RVSxDYHB ) 

703  C 

709  C - 

710  C 

711  C  H2TLT  --  SUBROUTINE  TO  CALCULATE  30UNDARY  TILT  FOR 

712  C  LINEAR  FI  -  F2  BOUNDARY 

713  C 

714  C  CALLED  3Y :  TILTS 

715  C 

715  C - 

717  C 

713  C  AUTHOR:  MICHAEL  H.  REILLY  4  ERIC  L.  STROBEL 

719  C 

720  C  DATE:  09/30/37 

721  C 

722  C  VERSION:  1.3 

7  23  C 

724  C - 

725  C 

726  C  REVISED:  09/30/37  --  VI . 0 .  Initial  revision. 

727  C 

728  C - 

729  C 

730  C  USES:  The  parameters  from  the  COMMON  blocks. 

731  C 

732  C 

733  C  To  calculate  the  rate  of  change  or  the  boundary  in  the 

734  C  locally  horizontal  directions.  The  boundary  here  is 

735  C  the  boundary  between  the  linear  FI  profile  and  the 

736  C  parabolic  F2  profile.  For  furtner  details,  see  the 

737  C  RADAR-C  report  referred  to  in  the  documentation. 

738  C 

739  C 

740  C  RETURNS:  RVSxDXH3  ••  d-dro  Height  of  Boundary. 

741  C 

742  C  RVSxDYHB  id, dy)  Height  of  Bound arv. 

743  C 

744  C - 

745  C 

746  INTEGER  ITCxA 

747  C 

748  REAL *8  RVSxDXHB,  RVSxDYHB.  RVLxH2Xl .  RVCxH3 ( 3 ) .  RVC>:F3(3) 

749  REAL *8  RVCxH2 ,  RVLxH2X2 .  RVLxH2H2 .  RVLxH2Y2,  RVCxBS  (  3 

750  REAL *8  RVCxB6(3),  RVCxE5(3),  RVCxE6(3).  RVCxVi .  RVCxVl 

751  REAL* 8  RVCxALPH,  RVCxBETA .  RVCxETl ,  RVCxETl ,  RVCxA5 ( 3 . 

752  REAL *3  RVCxA6<3).  RVCxHBl ,  RTCxA .  RTCxB .  RTCxC .  RTCxD 

753  REAL *8  RTCxE ,  RTCxF 

754  C 

755  COMMON  /IONOi/  RVCxALPH . RVCxBETA . RVCxETl , RVCxET2 . RVCxFB  ?VCx 

756  COMMON  /ION02/  RVCxAS  ,  RVCxA6  .  RVCxBS  .  RVCx3o  ,  RVCx£5  ,  RVCxEs 
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757  COMMON  /I0N03/  RVCxVl.  RVCxV2 .  RTCxA ,  ITCxA.  RTCxB 

758  COMMON  /VAR2/  RVCxHBl , RVCxH2 , RTCxC , RTCxD , RTCxE , RTCxF 

759  C 

760  RVLXH2X1  =•  (RVCxHB (3)  *  RVCxHB  (  3  )  )  /  (  2 . 0D00  *  RVCxFB  (  3  )  * 

761  # (RVCxHB (2)  -  RVCxH2) i 

762  RVLXH2X2  =  -RVLXH2X1  *  RVCxFB ( 2 )  /  RVCxFB (3) 

763  RVLXH2H2  =  l.ODOO 

764  RVLXH2Y2  =  -  i  RVCxHB  i  2  i  -  RVCxH2)  /  RVCxHB  (  3  ) 

765  RVSxDXHB  =  RVLXH2X1 *RVCxB5 ( 2 )  -  RVLxH2X2  *  RVCxB5(3i 

766  RVSxDXHB  =  RVSxDXH3  *  RVLxH2H2 « RVCxB6 ( 2 )  -  RVLxH2Y2 *RVCx3 

767  RVSxDXHB  =  -RVSxDXHB  ,  RVCxVl 

768  RVSxDYHB  =  RVLxH2Xl * RVCxES i 2 )  -  RVLxH2X2  «  RVCx£5 ( 3 ) 

769  RVSxDYHB  =  RVSxDYHB  RVLxH2H2 «RVCxE6  ( 2 )  +  RVLxH2Y2'RVCxS 

770  RVSxDYHB  =  RVSxDYHB  RVCxV2 

771  RETURN 

772  END 

H2TLT  Local  Symbols 

Name  Class  Type  Size 

RVSXDYHB . param 

RVSXDXHB . param 

RVLXH2H2 . local  REAL  *8  3 

RVLXH2X1 . local  REAL  *8  3 

RVLXH2X2 . local  REAL'S  3 

RVLXH2Y2 . local  REAL'S  3 

ITCXA  .  I0N03  INTEGER' 4  4 

RVCXHB . IONOl  REAL'S  24 

RVCXFB . IONOl  REAL '3  2  4 

RVCXH2 . VAR2  REAL'S  3 

RVCXB5 . I0N02  REAL'S  24 

RVCXB6 . I0N02  REAL'S  24 

RVCXE5 . I0N02  REAL'S  24 

RVCXE6 . I0N02  REAL'S  24 

RVCXV1 . I0N03  REAL'S  3 

RVCXV2 . I0N03  REAL'S  3 

RVCXALPH . IONOl  REAL'S  3 

RVCXBETA . IONOl  REAL'S  S 

RVCXET1  .  IONOl  REAL'S  8 

RVCXET2  .  IONOl  REAL'S  S 

RVCXA5 . I0N02  REAL'S  24 

RVCXA6 . ION02  REAL'S  2  4 

RVCXHB1 . VAR2  REAL '8  3 

RTCXA  .  I0N03  REAL'S  3 

RTCXB  .  I0N03  REAL'S  S 

RTCXC . VAR2  REAL'S  3 

RTCXD . VAR2  REAL'S  8 

RTCXE . VAR  2  REAL'S  3 


255 


H2TLT  Local  Symbols 


Marne  Class  Type  Size 

RTCXF . VAR  2  REAL*  3  3 


Global  Symbols 


Name  Class  Type  Size 

DH1LDP . FSUBRT  ***  *«* 

DH1PDP . FSUBRT  *««  *** 

DH4DP . FSUBRT  ***  *** 

H1LTLT . FSUBRT  «««  *** 

H1PTLT . FSUBRT  *«*  *«* 

H2TLT . FSUBRT  ***  *** 

H4TLT . FSUBRT  ***  *** 

H5TLT . FSUBRT  ***  *** 

HUTLT . FSUBRT  ***  *«* 

INTSIGN  .  extern  INTEGER *4  **« 

I0N01 . common  «**  30 

I0N02 . common  ***  144 

I0N03 . common  ***  36 

PRAM . common  ***  32 

RAID.  .  .  .  . common  ***  4 

TEMPI . common  ***  3  2 

TILTS . FSUBRT  *««  **« 

VAR1 . common  ***  40 

VAR2 . common  ***  43 

VAR3 . common  ***  4  0 

VAR4 . common  "**  40 


Code  size 
Data  size 


13f 3  (5107) 
007a  (122) 
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SUBROUTINE  NEWCS(IFSXG) 


NEWCS  --  SUBROUTINE 

TO  CALCULATE  NEW  CX .  CY ,  CZ  VALUES 

CALLED  3Y : 

RAYSUB 

CALLS : 

FREES? 

AUTHOR : 

MICHAEL  H.  REILLY  4  ERIC  L.  STROBEL 

DATE: 

09/17/36 

VERSION: 

2.0 

REVISED: 

07/25/36  —  INITIAL  REVISION.  TRANSLATED 
FROM  TEKTRONIX  BASIC  TO  VAX  FORTRAN  BY 
ERIC  L.  STROBEL. 

07/30/36  --  VI. 1.  Change  over  to  use  of 
REAL  *  8  precision  in  the  calculations. 

09/17/86  --  V 2.0.  Got  rid  cf  the  use  of 
approximate  rotation  matrix  in  calc,  of 
the  new  c-values. 

USES:  IFSxG 

IVCxSX, SY, SZ 

RVCxXF . YF , ZF 

RVCxLAl 

RVCxLOl 

RVCxLAl 

RVCxLOl 

RVCxALPH 

RVCxBETA 

RVCxETl 

RVCXET2 

RVCxCX , CY . CZ 


A  FLAG 

OLD  SIGN  VARIABLES 

FINAL  INTERVAL  COORDINATES 

PREVIOUS  POINT'S  LAT 

PREVIOUS  POINT'S  LON 

LAT  OF  BEGINNING  OF  INTERVAL 

LON  OF  BEGINNING  OF  INTERVAL 

X 

X-IONOS  PHERIC  PARAMETERS 

X 

X 

OLD  C -VALUES 


TO  CALCULATE  THE  NEW  C  AND  S  VALUES. 


RETURNS : 

IVCxSX. SY, SZ 


THE  NEW  SIGN  VALUES 
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51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 
67 
63 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

33 

34 

85 

86 
87 
33 
39 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 


C  RVCxCX.CY.CZ  THE  NEW  C  VALUES 

C 

C - 

C 

INTEGER  IFSxG ,  IVCxSX,  IVCxSY,  IVCxSZ 
C 

REAL’S  RVCxCX ,  RVCxCY.  RVCxCZ.  RVCxXF ,  RVCxYF .  RVCxZF 
REAL’S  RVCxHS ,  RVCxLAl .  RVCxLOl ,  RVCxHBOT 

REAL’S  RVCxALPH ,  RVCxBETA ,  RVCxETl .  RVCxET2 .  RVLxI ( 5 >  .  RVLxJ 
REAL’S  RVLxK ( 5  >  ,  RTLxC5,  RTLxC6,  RTLxC7 .  RTLxA2 ,  RTLXA3 
REAL’S  RTLXA4.  RTLxQ5 .  RTI.XQ6  ,  RTLxQ7 ,  RTLxD6 ,  RVCxD6 
REAL’ 8  RTCxA .  RTCxB ,  RTCxC ,  RTCxD 
C 

COMMON  /MORE/  IVCxSX,  IVCxSY,  IVCxSZ.  RVCxCX.  RVCxCY.  RVCxCZ 
COMMON  /OTHER/  RVCxLAl , RVCxLOl . RVCxHBOT . RTCxA , RTCxB . RTCxC 
COMMON  /END/  RVCxXF.  RVCxYF.  RVCxZF.  RVCxH5 
COMMON  / IONOl/  RVCxALPH. RVCxBETA, RVCxETl, RVCXET2 
COMMON  /GORP/  RVCxD6 .  RTCxD 
C 

10000  RTLxCS  *  RVCxCX 

RTLXC6  *  RVCxCY 

RTLxC7  a  RVCxCZ 

RVLxI (4)  =  OSIN (RVCxLAl) 

RVLxI (5)  *  DCOS (RVCxLAl) 

C 

C  A  routine  to  concoct  the  rotation  .tacrix  for  the 

C  calculation  of  the  new  C  values. 

C 

CALL  FREES P (RVLxI ,  RVLxJ,  RVLxK) 

C 

C  Recall  chat  the  flag  IFSxG  can  cake  on  values  of  3.  4.  i  5. 

C  corresponding  to  the  occurrance  of  reflections  in  the 

C  z  x,  &  y  directions,  respectively. 

C 

IF  (IFSxG.EQ.4)  THEN 
RTLXA4  =  0.0D00 

ELSE 

RTLXA4  »  IVCxSX* DSQRTi RTLxCS  -  RVCxETl « RVCxXF ) 

ENDIF 

IF  ( IFSxG. EQ. 5)  THEN 
RTLXA2  -  O.ODOO 

ELSE 

RTLxA2  =  IVCxSY’DSQRT (RTLxC6  -  RVCxET2 « RVCxYF ) 

ENDIF 

IF  (IFSxG.EQ.3)  THEN 
RTLXA3  =  O.ODOO 

ELSE 

RTLXA3  =  IVCxSZ *DSQRT( RVCxBETA* RVCxZF 'RVCxZF  - 
•RVCxALPH “RVCxZF  +  RTLxC7 ) 

ENDIF 
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Line 

101 

Q 

102 

RTLxQ5  »  RVLxI ( 1) *RTLxA4  +  RVLxI ( 2 )  * RTLxA2  +  RVLxI ( 3 )  *RTLxA3 

103 

RTLXQ6  *  RVLxJ  ( 1 )  *RTLxA4  RVLxJ  (  2  )  *RTLxA2  +  RVLxJ  (  3  )  *RTLxA3 

104 

RTLXQ7  =  RVLxK(l)  *RTLxA4  +  RVLxK { 2 )  *  RTLxA2  +  RVLxK ( 3 ) * RTLxA3 

105 

RTLxD6  =  DSQRT ( RVCxXF  * RVCxXF  +  RVCxYF*RVCxYF  +  RVCxZF «RVCx2F 

106 

RVCx06  =  RTLxD6 

107 

IF  (IFSxG.NE.4)  GO  TO  104*4 

108 

w 

109 

c 

3egin  handling  for  an  x-ref lection . 

110 

c 

ill 

IF  ( INTSIGN (RTLxQ 5  i .SQ. IVCxSX)  GO  TO  10410 

112 

IVCxSX  =  -IVCxSX 

113 

GO  TO  10416 

114 

c 

115 

c 

A  limit  is  sec  co  ensure  chac  the  calculation  doesn't  take 

116 

r 

an  infinite  time  to  creep  up  to  a  reflection  point,  so 

117 

c 

when  the  limit  is  reac.ied,  a  reflection  is  forced. 

113 

c 

119 

10410 

IF  RTLxD6  .  GT  .  I .  QD-0  4  )  GO  TO  10416 

120 

IVCxSX  a  -IVCxSX 

121 

RTLXQ5  »  0.0000 

122 

GO  TO  10416 

123 

10414 

IVCxSX  a  INTSIGN  ( RTLx<25  i 

124 

GO  TO  10419 

125 

C 

126 

c 

The  x-ref lection  is  complete,  so  handle  updating  the  values 

127 

c 

in  the  y  and  z  directions. 

123 

c 

129 

10416 

IVCxSY  a  INTSIGN (RTLXQ6) 

130 

IVCxSZ  a  INTSIGN (RTLxQ7) 

131 

GO  TO  10446 

132 

10419 

IF  (IFSxG.NE.5)  GO  TO  10428 

133 

C 

134 

C 

Begin  handling  for  a  y-ref lection . 

135 

C 

136 

IF  i INTSIGN (RTLxQS ) . EQ . IVCxSY)  GO  TO  10424 

137 

IVCxSY  a  -IVCxSY 

i38 

GO  TO  10430 

139 

C 

140 

C 

Again  a  limit  is  set  to  ensure  that  the  calculation  dcesr.  r 

141 

C 

take  an  infinite  time  to  creep  up  to  a  reflection  point. 

142 

C 

so  when  the  limit  is  reached,  a  reflection  is  forced. 

143 

C 

144 

10424 

IF  ( RTLXD6 . GT . 1 . 0D-04 )  GO  TO  10430 

145 

IVCxSY  a  -IVCxSY 

146 

RTLxQ6  *  0.0D00 

147 

GO  TO  10430 

143 

10428 

IVCxSY  a  INTSIGN (RTLxQ6i 

149 

GO  TO  10433 

150 

C 
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151  C  The  y-ref lection  is  complete,  so  handle  updating  the  values 

152  C  in  the  x  and  z  directions. 

153  C 

154  10430  IVCxSX  =  INTS IGN ( RTLxQS > 

155  IVCxSZ  =  INTS IGN (RTLxQ7) 

156  GO  TO  10446 

157  10433  IF  iIFSxG.NE.3)  GO  TO  10442 

153  I 

159  C  Begin  handling  for  a  z-ref lection. 

160  C 

151  I?  (INTSIGN(RTLxQ7)  .  £Q .  IVCxSZ)  GO  TO  10433 

162  10436  IVCxSZ  =  -IVCxSZ 

153  GO  TO  10444 

164  C 

165  C  Again  a  limit  is  sec  to  ensure  that  the  calculation  dcesn  t 

166  C  cake  an  infinite  time  to  creep  up  to  a  reflection  point. 

167  C  so  when  the  limit  is  reached,  a  reflection  is  forced. 

163  C 

159  10438  I?  ( RTLxD 6 . GT . i.QD-04)  GO  TO  10444 

170  IVCxSZ  =  -IVCxSZ 

171  RTLXQ7  =  O.ODOO 

172  GO  TO  10444 

173  10442  IVCxSZ  =  INTS IGN ( RTLxQ7 • 

174  GO  TO  10446 

175  C 

176  C  The  z-ref iecticn  is  complete,  so  handle  updating  the  va.ues 

177  c  in  the  x  and  y  directions. 

17  3  0 

179  10444  IVCxSX  *  INTS  IGN  (  RTL.XQ5  ; 

130  IVCxSY  =  INTSIGN ( RTLxQ6 i 

131  10446  RVCxCX  »  RTLxQ5  *  RTLxQS 

132  RVCxCY  *  RTLXQ6  »  RTLXQ6 

133  RVCxCZ  =  RTLXQ7  «  RTLxQ7 

134  C 

135  C  IFSxG  =  6  which  means  that  the  ray  is  outside  the  oour.ds 

136  C  of  che  ionosphere,  headed  down,  so  presumably  the  pro 

137  c  is  handling  an  earth  bounce  event.  Therefore,  a  spec 

188  C  reflection  is  forced. 

139  C 

190  IF  ( IFSxG . EQ . 6 . AND . RVCxH5 . LT . RVCxHBOT )  IVCxSZ  =  -IVCxSZ 

191  RETURN 

192  END 


IWCS  Local  Symbols 

ame  Class  Type  Size 

?SXG . param 

TLXC5 . local  REAL  *  3  1 
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C  *4 


NEWCS  Local  Symbols 


Name  Class  Type  Size 

RTLXCS . local  REAL*  8  8 

RTLXD6 . local  REAL  *  3  3 

RTLXC7 . local  REAL*  8  3 

RTLXQ5 . local  REAL -3  3 

RTLXQ6 . local  REAL*  8  3 

RTLXQ7 . local  REAL  *8  3 

RVLXI . local  REAL*8  40 

RVLXJ . local  REAL'S  40 

RVLXK . local  RSAL*8  40 

RTLXA2 . local  REAL*  8  3 

RTLXA3 . local  REAL*  8  8 

RTLXA4 . local  REAL  *  8  8 

IVCXSX . MORE  INTEGER*  4  4 

IVCXSY . MORE  INTEGER  *4  4 

IVCXSZ . MORE  INTEGER*  4  4 

RVCXCX . MORE  REAL  *8  3 

RVCXCY . MORE  REAL  *8  8 

RVCXCZ . MORE  REAL  *8  3 

RVCXXF . END  REAL  *8  8 

RVCXYF . END  REAL  *3  3 

RVCXZF . END  REAL  *8  3 

RVCXHS . END  REAL  *8  8 

RVCXLA1  .  OTHER  REAL’S  3 

RVCXLOl  .  OTHER  REAL *8  3 

RVCXHBOT . OTHER  REAL  *3  8 

RVCXALPH . I0N01  REAL  *8  3 

RVCXBETA . IONOl  REAL*  8  3 

RVCXET1  .  IONOl  REAL *8  3 

RVCXET2  .  IONOl  REAL *8  3 

RVCXD6 . GORP  REAL  *8  3 

RTCXA  .  OTHER  REAL* 8  8 

RTCXB . OTHER  REAL  *  8  3 

RTCXC  .  OTHER  REAL *8  3 

RTCXD . GORP  REAL*  8  3 
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Line# 

Sour 

:a  Line 

194 

SUBROUTINE  TRIANG  1 

195 

196 

r 

197 

r 

193 

C 

TRIANG  --  SUBROUTINE  TO  CHECK  IF  A  LOCATION  IS  WITHIN  A  1 

199 

c 

TRIANGLE  OF  S.C.P.  '  S  1 

200 

C 

201 

c 

CALLED  3Y : 

ICNOPAR 

202 

c 

eU  J 

u  --- 

204 

c 

205 

c 

AUTHOR : 

MICHAEL  H.  REILLY  4  ERIC  L.  STROBEL 

206 

c 

207 

c 

DATE: 

:  2  /  0  3  /■  3  3 

203 

u 

209 

c 

VERSION: 

2.2 

210 

c 

211 

s- - — 

212 

c 

213 

c 

REVISED: 

07/25/36  --  INITIAL  REVISION.  TRANSLATED 

214 

r 

FROM  TEKTRONIX  BASIC  TO  VAX  FORTRAN  BY 

215 

c 

ERIC  L.  STROBEL. 

216 

c 

217 

c 

07/30/36  —  VI . 1 .  Change  over  to  use  of 

213 

c 

REAL  *  3  precision  in  the  calculations. 

219 

c 

220 

c 

10/10/36  --  V2.0.  Changed  to  confer-  to 

221 

c 

the  change  over  : .  RAYTRACE  as  a  subreut . 

222 

c 

223 

c 

09/01/37  --  V2.1.  Slight  changes  to  speed 

224 

c 

things  up  3  bit. 

225 

£ 

226 

c 

02/03/33  —  V2.2.  More  streamlining  of  INTs 

227 

c 

and  NINTs.  Logical  variable  added  to  help 

223 

r 

correctly  handle  the  'possibly)  worrisome 

229 

c 

case  of  the  grid  at  the  geographic  nert.t  pole. 

230 

n  “i  i 

c 

ewl 

V-r*  —  *“ 

232 

c 

233 

c 

USES:  IVSxSC 

Tl.2.3  THE  THREE  S.C.P.  S  THAT  MAKE  THE 

234 

c 

TRIANGLE 

235 

c 

RVCxX . 

Y . Z  INTERMEDIATE  COORDINATES 

236 

c 

RVCxU ,  V  ,  W  t 900 )  THE  S.C.P.  COORDINATES 

237 

c 

233 

c 

239 

c 

TO  DETERMINE 

WHETHER  OR  NOT  A  LOCATION  IS  WITHIN  A 

240 

c 

TRIANGLE 

OF  S.C.P. 'S.  First,  the  locations  4  array 

241 

n 

indices  > 

of  the  four  surrounding  grid  points  are 

242 

c 

ootained , 

and  then  the  potential  triangles  i  involving 

243 

c 

three  of 

the  corners  of  this  surrounding  rectar.cl  = 

262 

ine#  Source  Line 


244 

245 

246 

247 
243 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 
267 
263 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 

283 

284 

285 

286 

287 

288 
239 

290 

291 

292 

293 


V. 

C 

C 

C 

c 

c 


c 

c 

c 


c 

c 

c 

c 


c 


c 

c 


c 


are  checked  in  an  attempt  to  make  sure  chat  the  point 
of  interest  is  as  far  within  a  triangle  as  possible. 
The  three  grid  points  that  make  up  this  triangle  are 
reported.  These  are  the  points  from  which  the 


interpolation  is  based, 
definitions:  RVxGRID(l) 

(2) 
(3) 
<4) 
(5) 
.  6  ) 


RETURNS : 

IFSxN4  FLAG 


Recall  the  following 
=  lac  spacing 
=  Ion  spacing 
=  starting  lat 
=  starting  ion 
=  *  in  lat 
=  #  in  Ion. 


i=l  IF  MOT  INTERIOR  TO  A 
TRIANGLE  OF  S  .  C  .  ? .  ' S ) 


INTEGER  IVLxTl.  IVLxT2.  IVLxT3 .  IVLxT4 ,  IVCxSCTl 
INTEGER  IVCXSCT2.  IVCXSCT3 ,  IVCxSCS ,  IVLxNLN ,  IVLxILN 

REAL *8  RVLxLAIN .  RVLXiOIN.  RVCxLAI.  RVxGRID<6),  RVCxLOI 
REAL* 8  RVLxPl ,  RVLxP2,  RVCxXI .  RVCxYI,  RVCxZI 

LOGICAL  LVLxPOLE 

COMMON  /MAINDAT/  RVxGRID 

COMMON  /START/  RVCxXI ,  RVCxYI.  RVCxII,  RVCxLAI ,  RVCxLOI 
COMMON  /TEMP2 /  IVCxSCS.  IVCxSCTl.  I7CXSCT2 .  IVCxSC?3 

RVLxLAIN  *  (RVCxLAI  -  RVxGRID ( 3 ) )  /  RVxGRID ( 1 i 
RVLxLOIN  =  (RVCxLOI  -  RVxGRID ( 4 ) )  /  RVxGRID (2) 

IVLxILN  =  INT( RVLxLAIN) 

RVLxPl  =  RVLxLAIN  -  IVLxILN 
RVLxP2  =  RVLXLOIN  -  INT ( RVLxLOIN ) 

IVLxNLN  =  NINT (RVxGRID ( 6) ) 

IVLxTl  =  IVLxILN  «  IVLxNLN  +  INT ( RVLxLOIN )  -  1 

IVLXT2  =  IVLxTl  +  1 
IVLXT3  =  IVLxTl  +  IVLxNLN 
IVLXT4  *  IVLxT3  +  1 

LVLxPOLE  »  NINT  (RVxGRID  (3)  +  (IVLxILN  *  1)  *  RVxGRID  ( 1 i  .  E 

IF  ( RVLxPl. LT. 0.5. OR. LVLxPOLE)  THEN 
IVCxSCTl  =  IVLxTl 
IVCXSCT2  =  IVLxT2 
IF  ( RVLxP2 . LT . 0 . 5D00 )  THEN 
IVCXSCT3  =  IVLxT  3 

ELSE 

IVCXSCT3  =  IVLxT 4 
END  IF 
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Line#  Source  Line 

294  ELSE 

295  IVCXSCT2  =  IVLxT3 

296  IVCXSCT3  *  IVLxT4 

297  IF  ( RVLxP  2 . LT .0 . 5D00 )  THEN 

298  IVCxSCTl  =  IVLxTl 

299  ELSE 

300  IVCxSCTl  =  IVLxT2 

301  END  IF 

302  END IF 

303  RETURN 

304  END 

TRIANG  Local  Symbols 

Name  Class  Type  Size 

IVLXT1 . local  INTEGER  *4  4 

IVLXT2 . locai  INTEGER  *  4  4 

IVLXT3 . local  INTEGER  *  4  4 

IVLXT4 . local  INTEGER*  4  4 

RVLXP1 . local  REAL  *  3  3 

RVLXP 2 . local  REAL  *  3  3 

IVLXILN  .  local  INTEGER* 4  4 

IVLXNLN  .  local  INTEGER* 4  4 

RVLXLAIN . local  REAL  *3  3 

LVLXPOLE . local  L0GICAL*4  4 

RVLXLOIN . locai  REAL*  3  3 

IVCXSCT1 . TEMP  2  INTEGER  *4  4 

IVCXSCT2 . TEMP  2  INTEGER  *4  4 

IVCXSCT3 . TEMP2  INTEGER  *4  4 

IVCXSCS . TEMP 2  INTEGER  *  4  4 

RVCXLAI  .  START  REAL *3  3 

RVXGRID . MAINDAT  REAL  *  3  4  3 

RVCXLOI . START  REAL*  3  3 

RVCXXI . START  REAL  *8  3 

RVCXYI . START  REAL*  8  3 

RVCXZI . START  REAL  *8  3 
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Line#  Source  Line 


307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

J  44 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c- 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c- 


SUBROUTINE  ACCFS? ( RVSxHO ,  RVSXS4.  IFSxG) 


ACCFSP  —  SUBROUTINE  TO  SPEED  UP  CALCULATION  OF  FREE  SPACE 
PROPAGATION 

CALLED  3Y :  ENDPT 


AUTHOR:  MICHAEL  H.  REILLY  &  ERIC  L.  STROBEL 

DATE:  03/18/38 

VERSION:  2.2 


REVISED:  07/25/86  —  INITIAL  REVISION.  TRANSLATED 

FROM  TEKTRONIX  BASIC  TO  VAX  FORTRAN  BY 
ERIC  L.  STROBEL. 

07/30/86  —  VI . 1 .  Change  over  to  use  of 
REAL* 8  precision  in  the  calculations. 

09/01/37  —  V2.0.  Changed  to  allow  ray  to 
be  above  the  top  of  the  ionosphere. 

12/08/87  --  V2.1.  A  change  has  been  made 
to  make  sure  that  the  ray  stops  at  the 
desired  point. 

03/18/38  --  V2 . 2 .  Minor  changes  made  to 
accommodate  the  new  usage  of  angular  range. 


USES:  IVCxSX.SY.SZ 

RPCxRE 
RVSxHO 

RVCxCX , CY , CZ 


SIGN  VARIABLES 
EARTH  RADIUS 
CURRENT  HEIGHT 
C-VALUES 


TO  OBTAIN  THE  ENDPOINT  OF  A  RAYPATH  INCREMENT  THAT  I  - 
THROUGH  FREESPACS. 


RETURNS : 

RVCxXF , YF , ZF  THE  ENDPOINT  COORDINATES 
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ine#  Source  Line 


357  C 
353 

359 

360  C 

361 

362 

363 

364 

365 

366 

367 

368 

369  C 

370 

371 

372 

373 

374 

375  C 

376 

377  C 

378  C 

379  C 
180 

j  1 
382 

333  C 
384  C 

335  C 

336  C 

337  c 

338  C 

389  C 

390  C 

391  C 

392  C 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 


INTEGER  IVCxSX,  IVCxSY.  IVCxSZ .  IVLxSSS,  IVLxJ ,  IVLxI 

INTEGER  IFSxG 

REAL  *  8  RPCxRE ,  RVSxHO ,  RVCxCX.  RVCxCY .  RVCxCZ.  RVLxHGT 
REAL'S  RVCxXF .  RVCxYF .  RVCxZF,  RPCxPI,  RTLxD ,  RVCxHCT 
REAL'S  RPCxDTR ,  RVCXH5 .  RTLxQl .  RTLxQ2 ,  RTLxQ3 ,  RPCxHT? 
REAL'S  RTLxTl ,  RTLxC ,  RTLxC2.  RTLxRR ( 4 ) ,  RVLxS , VLxRF 
REAL'S  RTLxLl . RTLXL2 .  RTLxL4 , RTLxLS .  RVCxHB , RTLxD 1 . RTLxD 
REAL'S  RTLxD 3.  RVSxS4,  RTLxZZZ .  RVCxALIM.  RTLxT2 ,  RTLxT3 
REAL' 8  RTLxR? .  RTLxTTH .  RTLxTHE ,  RTLxDEL ,  RTLxD? ,  RTLxS4 
REAL' 3  RTLxSPR 

COMMON  'MORE/  IVCxSX.  IVCxSY.  IVCxSZ.  RVCxCX.  RVCxCY.  RV 
COMMON  /PRAM/  RPCxPI.  RPCxDTR.  RPCxRE.  RPCxHTP 
COMMON  /OTHER/  RTLxLl . RTLxL2 . RVCxHB . RTLxL4 . RTLxLS , RVCxHC 
COMMON  /END/  RVCxXF.  RVCxYF.  RVCxZF,  RVCxH5 
COMMON  /GORP/  RTLxZZZ,  RVCxALIM 

IVLxI  =  0 

Calculate  tne  ray  direction  cosines. 

RTLxQl  =»  IVCxSX'DSQRT  (RVCxCX) 

RTLXQ2  *  IVCxSY 'DSQRT (RVCxCY) 

RTLxQ3  =  IVCxSZ 'DSQRT i RVCxCZ ) 

The  calculation  is  the  solution  of  -  r.a  quadratic  equatic 
resulting  from  a  straight  line  piercing  a  spnere.  Fi 
the  radii  of  the  pertinent  spner.s  are  obtained,  base 
whether  the  freespace  propagation  is  above  or  below  t 
bounds  of  the  model  ionosphere.  3ased  on  the  discn.m 
the  proper  solution  is  chosen.  The  linear  distance  c 
is  calculated  (RVLxS)  and  using  the  direction  cosines 
final  coordinate  values  are  obtained. 

RTLxTl  =  RVSxHO  *  RPCxRE 
RTLxC  *  RTLxTl 'RTLxQ 3 
RTLxC 2  *  RTLxC 'RTLxC 
IVLxSSS  *  1 

IF  (RVCXH5.GE. RPCxHTP)  THEN 
IVLxJ  »  3 

RTLxRR (3)  =  RPCxHTP 
RTLxRR ( 4 )  *  RVCxHCT 

ELSE 

IVLxJ  *  1 

RTLxRR (1)  =  0.0D00 
RTLxRR (2)  =  RVCxHB 
END  IF 

IF  (IVCxSZ.LT. 3)  GC  TO  10000 
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Line#  Source  Line 


407 

403 

409 

410 

411 

412 

413 

414 

415 

416 

417 
413 

419 

420 

421 

422 

423 

424 

425 

426 

427 
423 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 
443 

449 

450 

451 

452 


9000  IVLxJ  *  IVLxJ  +  1 
IVLXSSS  =  -1 

10000  RTLxD  *  RTLxC2  ♦  l RTLxRR ( IVLxJ )  -  RVSxHO )*( RTLxTl  + 
#RTLxRR( IVLxJ)  +  RPCxRE) 

IF  (RTLxD.LT. O.ODOO)  THEN 

PRINT  Ray  passes  through  a  minimum  of  altitude.' 

IFSxG  =  7 
GO  TO  9000 
END  IF 

RVLxS  =  -RTLxC  -  IVLXSSS  «  DSQRT (RTLxD) 

11000  RVCxXF  »  RTLxQl *  RVLxS 
RVCxYF  *  RTLxQ2« RVLxS 
RVCxZF  =  RTLxQ3«RVLxS 

n 

C  DONE  12/3.  After  some  preliminary  calculations,  a  check 

C  is  made  to  see  if  the  straight  line  endpoint  is  beyond 

C  the  range  cutoff.  If  so.  the  distance  traveled  along 

C  the  line  is  backed  off  by  an  appropriate  amount  and  the 

C  endpoint  coordinates  are  recalculated. 

C 

RTLXT2  *  RVCxZF  -<■  RTLxTl 

RTLXT3  *  RVCxXF  «  RVCXXF  +  RVCxYF  *  RVCxYF 
RTLxRP  »  DSQRT (RTLXT3  *  RTLxT2*RTLxT2 ) 

RTLxTTH  »  RVCxZF  /  DSQRT ! RTLxT3 ) 

RTLxTTH  »  DATAN ( RTLxTTH ) 

RTLxTHE  =»  RPCxPI  /  2.0  *  RTLxTTH 
RTLxD EL  *  RVLxS  *  OSIN ( RTLxTHE )  /  RTLxRP 
RTLxDEL  »  DASIN ( RTLxDEL ) 

IF  ( (RVSXS4  +  RTLxDEL) . GE . RVCxALIM >  THEN 
RTLxDP  *  RVCxALIM  -  RVSxS4 
RTLxSPR  =»  RVLxS  *  RTLxTl  «  DSINl RTLxDP) 

RTLxSPR  »  RTLxSPR  /  (RTLxRP  »  DS IN (RTLxDEL  -  RTLxDP) 

#  +  RTLxTl  *  DSIN ( RTLxDP ) ) 

RVCxXF  =  RTLxQl -RTLxSPR 
RVCxYF  =•  RTLxQ  2 -RTLxSPR 
RVCxZF  *  RTLxQ3* RTLxSPR 
RTLxT2  *  RVCxZF  +  RTLxTl 

RTLXT3  -  RVCxXF  *  RVCxXF  ♦  RVCxYF  -  RVCxYF 
RTLxRP  »  DSQRT (RTLXT3  ♦  RTLxT2*RTLxT2 ) 

IF  (DABS ( RTLxRP -RPCxRE ! .GT.1.0D-02)  THEN 
IFSxG  *  7 
END  IF 
ENDIF 
C 

RETURN 

END 
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ACCFSP  Local  Symbols 


Name  Class  Type  Size 

IFSXG . param 

RVSXS4 . param 

RVSXHO . param 

RTLXQ1 . local  REAL  *8  3 

I7LXI  .  local  INTEGER *4  4 

RTLXC . local  REAL*  3  3 

RTLXQ2 . local  REAL  *8  3 

IVLXJ  .  local  INTEGER* 4  4 

RTLXQ3 . local  REAL  *8  8 

RTLXD  .  local  REAL *3  3 

RTLXT1 . local  REAL  *8  3 

RTLXT2 . local  REAL  *8  3 

RTLXT3 . local  REAL  *3  3 

RTLXD  P . local  REAL  *8  8 

RTLXDEL  .  local  REAL *3  3 

RVLXS  .  local  REAL *8  3 

VTLXTHE  .  local  REAL *8  3 

RTLXRP . local  REAL  *3  3 

’.TLXRR . local  REAL  *8  3  2 

ITLXTTH  .  local  REAL *3  3 

!VLXSSS  .  local  INTEGER* 4  4 

ITLXSPR  .  local  REAL *8  3 

’.TLXC2 . local  REAL*  8  3 

‘VCXSX . MORE  INTEGER  *4  4 

IVCXSY . MORE  INTEGER  *4  4 

:VCXSZ . MORE  INTEGER*  4  4 

.PCXRE . PRAM  REAL*  8  3 

1VCXCX . MORE  REAL'S  3 

VCXCY . MORE  REAL  *8  3 

VCXCZ . MORE  REAL  *8  3 

VCXXF . END  REAL*  8  3 

.VCXYF . END  REAL  *8  3 

.VCXZF . END  REAL  *3  3 

•  PCXPI . PRAM  REAL  *8  a 

.VCXHCT  .  OTHER  REAL *8  8 

.PCXDTR . PRAM  REAL  *  3  8 

VCXH5 . END  REAL  *3  8 

PCXHTP  .  PRAM  REAL *8  3 

TLXL1 . OTHER  REAL  *  8  8 

TLXL2 . OTHER  REAL  *8  3 

TLXL4 . OTHER  REAL  *3  3 

TLXL5 . OTHER  REAL  *8  3 

VCXHB . OTHER  REAL  *3  3 

TLXZZZ  .  GOR?  REAL *3  3 

VCXALIM . GORP  REAL  *8  3 
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455 

456 

457 
453 

459 

460 

461 

462 

463 

464 

465 

466 

467 
463 

469 

470 

471 

472 

473 

474 
47  5 

476 

477 
473 

479 

480 

431 

432 
483 
434 
485 

436 

437 

433 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 


SUBROUTINE  FREES? { RVSxI ,  RVSxJ ,  RVSxK) 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

r 

c 

c 

c 

c 

c 

c 

c 


FREESP  —  SUBROUTINE  TO  OBTAIN  SOME  VALUES  USED  TO  COMPUTE 
NEW  C-VALUES  IN  THE  CASE  OF  FREESPACE 
PROPAGATION. 

CALLED  BY:  MEWCS 


AUTHOR: 

MICHAEL  I- 

i.  REILLY 

DATE: 

07/30/36 

VERSION: 

1 . 1 

REVISED: 

07/25/86 

--  INITIAL  REVISION. 

TRANSLATED 

FROM  TEKTRONIX  BASIC  TO  VAX  FORTRAN  BY 
ERIC  L.  STROBEL. 


07/30/86  --  VI . 1 .  Change  over  to  use  of 
REAL’S  precision  in  the  calculations. 


C 


C 

c 

USES:  RVCxLOl 

PREVIOUS  POINT'S  LON 

c 

RVCxLAI 

LAT  OF  BEGINNING  OF  INTERVAL 

c 

RVCxLOl 

LON  OF  BEGINNING  OF  INTERVAL 

c 

RVSxI (5) 

X 

c 

RVSxJ (5) 

X- ARRAYS  OF  INTERMEDIATE  VALUES 

c 

RVSxK ( 5 ) 

X 

L. 

c 

TO  CALCULATE  SOME 

MORE  INTERMEDIATE  VALUES  INVOLVED  IN 

c 

COMPUTING 

THE  C-VALUES  FOR  FREESPACE 

c 

PROPAGATE 

ON 

c 

RETURNS : 

c 

RVSxI ( 5) 

X 

c 

RVSxJ ( 5) 

X-ARRAYS  OF  INTERMEDIATE  VALUES 

c 

RVSxK ( 5) 

X 

c 

c - 

C 

REAL  *  8  RVSxI (5).  RVSxJ ( 5 )  .  RVSxK(5),  RVCxXI .  RVCxYI .  RVCxI 
REAL’S  RVCxLAI ,  RVCxLOI .  RVCxLl ,  RVCxLOl,  RTCxA.  RTCxS 
REAL ’8  RTCxC .  RTCxD 
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ine#  Source  Line 


505  C 

506  COMMON  /START/  RVCxXI .  RVCxYI .  RVCxZI .  RVCxLAI .  RVCxLOI 

507  COMMON  /OTHER/  RVCxLl , RVCxLOI , RTCxA , RTCxB , RTCxC , RTCxD 
503  C 

509  RVSxJ ( 4 )  =  OSIN (RVCxLAI) 

510  RVSxJ (5)  =  DCOS (RVCxLAI) 

511  RVSxK ( 4 )  =  DS IN (RVCxLOI  -  RVCxLOI) 

512  RVSxK (5)  *  DCOS (RVCxLOI  -  RVCxLOI) 

513  RVSxK 1)  =  RVSxI ( 4 ) *RVSxJ  i  4 ) *RVSxK ( 5 )  +  RVSxI ; 5 i  «RVSxJ ' 5 i 

514  RVSxI ( 2 )  =  RVSxJ  i  4 ) "RVSxK  i 4 ) 

515  RVSxI (3)  =  RVSxI i 5 ) *RVSxJ ! 4 ) “RVSxK ( 5 )  -  RVSxI ( 4 M RVSxJ ' 5 

516  RVSxJ ( 1 )  =  -RVSxI ( 4 ) * RVSxK ( 4 ) 

517  RVSxJ (2)  *  RVSxK ( 5 ) 

513  RVSxJ (3)  =  -RVSxI (5) «RVSxK(4) 

519  RVSxK (1)  =  RVSxI ( 4 )  *  RVSxJ l  5 )  *  RVSxK ( 5 )  -  RVSxI . 5 ) • RVSxJ ■ 4 • 

520  RVSxK (2)  =  RVSxJ ( 5 ) *RVSxK < 4 ) 

521  RVSxK ( 3 )  *  RVSxI ( 5 ) “RVSxJ ( 5 ) "RVSxK ( 5 i  +  RVSxI ( 4 ) «RVSxJ ( 4 ) 

522  RETURN 

523  END 

FREESP  Local  Symbols 

Name  Class  Type  Size 

RVSXK . paran 

RVSXJ  .  . . paraa 

RVSXI . param 

RVCXXI . START  REAL  *3  3 

RVCXYI . START  REAL*  3  3 

RVCXZI . START  REAL  *3  3 

RVCXLAI  .  START  REAL* 3  3 

RVCXLOI  .  START  REAL *3  3 

RVCXL1 . OTHER  REAL  *8  3 

RVCXLOI  .  OTHER  REAL *3  3 

RTCXA  .  OTHER  REAL -8  3 

RTCXB  .  OTHER  REAL *8  3 

RTCXC  .  OTHER  REAL *8  3 

RTCXD  .  OTHER  REAL *8  3 


Line#  Source 


e 


526 

527  C 

528  C 

529  C 

530  C 

531  C 

532  C 

533  C 

534  C 

535  C 

536  C 

537  C 

538  C 

539  C 

540  C 
5  41  C 

542  C 

543  C 

544  C 

545  C 

546  C 

547  C 

548  C 

549  C 

550  C 

551  C 

552  C 

553  C 

554  C 

555  C 

556  C 

557  C 

558  C 

559  C 

560  C 

561  C 

562  C 

563  C 

564  C 

565  C 

566  C 

567  C 
563  C 

569  C 

570  C 

571  C 

572 

573 

574 

575  C 


SUBROUTINE  TIMES ( RVSxSUN ,  IVSxNB ,  RVSxLONO) 


TIMES  --  SUBROUTINE  TO  CONVERT  GIVEN  TIME  INTO  THE  TIME 
VARIABLES  NEEDED  LATER 

CALLED  3Y :  RAYSU3 


AUTHOR:  ERIC  L.  5TRCBEL 

DATE:  03/13/38 

VERSION:  2.0 


REVISED:  08/07/86  --  INITIAL  REVISION. 

10/10/36  --  VI . 1 .  Changed  to  conform  to 
the  status  of  RAYTRACE  as  a  subroutine. 

03/13/33  --  V2.0.  Vastly  rewritten  to  give 
a  better  idea  of  the  mid-hop  longitude,  and 
to  better  handle  being  off  by  factors  cf 
(2  *  pi i  in  the  mid-hop  longitude. 


USES:  RVSxBUN (11,15)  ARRAY  OF  BOUNCE  ?T .  DATA 

IVSxNB  BOUNCE  COUNT 

RVSxLONO  LONG.  OF  LAUNCH  ?T . 

ICLxM(ll)  NUMBER  OF  DAYS  IN  EACH  MC . 

IVCxTIM ( 5 )  DATS  AND  TIME  ARRAY 

TO  CALCULATE  THE  DECIMAL  YEAR  VALUE  AND  THE  TIME  SINCE 
MIDNIGHT  IN  RADIANS 

RETURNS : 

RVCxYR  DECIMAL  YEAR 

RVCxTIM  TIME  SINCE  MIDNIGHT  IN  RADIANS 


REAL  *  3  RVCxYR.  RVCxTIM.  RVSxBUN ( 11 , 1 5 )  ,  RPCxPI .  RPCxDTCR 
REAL* 3  RVCxA ,  RTLxLON ,  RVSxLONO,  RTCxA .  RTCxB .  RTLxLO 
REAL'S  RTLxLl.  RTLxDEL 
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ine4  Source  Line 


576  INTEGER  ICLxM(ll).  IVCxTIM ( 5 ) .  ITLxA.  ITLxB.  IVSxNB 

577  INTEGER  IVCxSSN.  IFCxGND ,  IVLxNR 
57  8  C 

579  COMMON  /PRAM/  RPCxPI.  RPCxDTOR .  RTCxA ,  RTCxB 

530  COMMON  /LPARM/  IVCxSSN.  IVCxTIM,  RVCxYR ,  RVCxA,  IFCxGND 

581  *  RVCxTIM 

532  C 

583  DATA  ICLxM/ 31 . 23 . 31 . 30 . 31 . 30 . 31 , 31 . 30 . 31 . 30/ 

584  C 

535  10000  ITLxA  *  IVCxTIM ( 2 )  -  1 

536  IVLxNR  =  1 

537  ITLxB  =«  IVCxTIM  (3) 

533  DO  10100  1  =  1.  ITLxA 

539  ITLxB  =  ITLxB  -  ICLxM(I) 

590  10100  CONTINUE 

591  RVCxYR  =  IVCxTIM ( 1 )  -  ITLxB/ 365 . 0D00  -  1930. 0D00 

592  RVCxTIM  =  IVCxTIM (4)  -  IVCxTIM ( 5 )/ 60 . 0D00 

593  C 

594  C  Compute  the  longitude  of  the  midpoint  of  a  hop.  for  the 

595  C  absorption  calculation. 

596  C 

597  IF  (IVSxNB. GT.l)  THEN 

598  RTLxLO  =  RVSxBUN ( IVSxNB -1 , 2 ) 

599  ELSE 

600  RTLxLO  =  RVSxLONO 

SOI  END IF 

602  RTLxLl  =  RVSxBUN ( IVSxNB . 2 ) 

603  RTLxOEL  =  RTLxLl  -  RTLxLO 

604  IF  (DABS (RTLxDEL)  . GT . RPCxPI)  RTLxDEL  =  RTLxDEL- IMTSIGN  i 

505  4* ( 2 . 0D0O  *  RPCxPI) 

606  RTLxLON  =  RTLxLO  +  RTLxDEL/ 2 . 0D00 

607  C 

503  RVCxTIM  =  RTLxLON  *  15.0D0O  •  RPCxDTOR  *  RVCxTIM 

609  10200  IF  (RVCxTIM. GE. (2. 0D00«RPCxPI) )  THEN 

610  RVCxTIM  =  RVCxTIM  -  2 . 0D00 «R?Cx?I 

611  GO  TO  10200 

612  ELSE  IF  (RVCxTIM. LT. 0 .  ODOO>  THEN 

613  RVCxTIM  =  RVCxTIM  -  2 . ODOO ‘RPCxPI 

614  GO  TO  10200 

615  ENDIF 

616  RETURN 

617  END 

TIMES  Local  Symbols 

Maine  Class  Type  Site 

RVSXLONO . param 

IVSXNB . param 


272 


TIMES  Local  Symbols 


Name  Class  Type  Size 

RVSXBUN . param 

ICLXM . local  INTEGER  *4  44 

ITLXA  .  local  INTEGER* 4  4 

ITLXB  .  local  INTEGER- 4  4 

RTLXLO . local  REAL*  3  3 

RTLXL1 . local  REAL  *3  3 

I . local  INTEGER  *  4  4 

RTLXDEL  .  local  REAL *3  3 

IVLXNR . local  INTEGER  *4  4 

RTLXLON  .  local  REAL* 3  3 

RVCXYR . LPARM  REAL  *3  3 

RVCXTIM  .  LPARM  REAL *3  3 

RPCXPI . PRAM  REAL*  3  3 

RPCXDTOR . PRAM  REAL  *8  3 

RVCXA  .  LPARM  REAL* 8  3 

RTCXA . PRAM  REAL  *8  3 

RTCXB . PRAM  REAL  *8  3 

IVCXTIM  .  LPARM  INTEGER* 4  20 

IVCXSSN  .  LPARM  INTEGER* 4  4 

IFCXGND  .  LPARM  INTEGER -4  4 
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Line#  Source  Line 


620 

621 

622  C 

623  C 

624  C 

625  C 

626  C 

627  C 

628  C 

629  C 
6  30  C 
631  C 
6  3  2  C 
633  C 
6  34  C 
535  C 

5  36  C 

637  C 

638  C 

639  C 

640  C 

641  C 

642  C 

6  43  C 
:  44  C 

645  C 

646  C 

647  C 

648  C 
549  C 

650  C 

651  C 

652  C 

653  C 

654  C 

655  C 
6  56  C 
5  57  C 
653  C 

659  C 

660  C 
561  C 

662  C 

663  C 

664  C 
565  C 

666  C 

667  C 
663  C 
669  Z 


SUBROUTINE  LOSS ( RVSxBOU . RVSxBUN , IVSxNB , RVSxLATO . RVSxLONO 
* , RVSxELO . IFSxEND ) 


LOSS  —  SUBROUTINE  TO  EVALUATE  THE  LOSSES  ALONG  THE  RAY'S 
PATH 

CALLED  BY:  RAYSUB 


AUTHOR:  ERIC  L.  STROBEL 

DATS:  09/01/37 

VERSION:  3.0 


REVISED:  08/07/36  —  INITIAL  REVISION. 

09/05/36  --  V2.0.  ADD  HORIZON  EFFECTS. 
BUG  FIX.  COSMETIC  CHANGES. 

10/10/36  --  V2.1.  Changed  to  conform  -. c 
che  new  status  of  RAYTRACE  as  a  subrcuc . 
Also  trimmed  some  if  che  commented  cut 
code . 

04/09/37  --  V2 . 2  .  Corrected  error  or. 
calculation  of  geometric  loss. 

09/01/37  --  73.0.  Changed  to  comment  cu 
absorption  loss  calculation  in  anciripat 
of  a  better  routine.  Also,  the  R.ludgy 
"excess  loss"  has  been  commented  out.  T 
focusing  calculation  has  been  generalize 
and  some  corrections  have  been  made. 


USES:  RVSxBOU '11. 15; 

RVSxBUN ( 4 . 3 , 11 i 

IVSxNB 

RVSxLATO 

RVSxLONO 

IFSxEND 

RVCxFSQ 


BOUNCE  ?T .  ARRAY 
RAY  3 UNCLE  ARRAY 
3GUNCE  COUNT 
LAT  DF  LAUNCH  POINT 
LON  Cc  LAUNCH  POINT 
FLAGS  THE  LOSS  COMP.  FI? 

END  OF  THE  RAY 
WAVE  FREQUENCY  SQUARED 
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ine#  Source  Line 


570  C 

671  C 

672  C 

673  C 
574  C 

675  C 

676  C 

677  C 
673  C 
579  C 

630  C 

631  C 

532  C 

533  C 

634  C 

635  C 

636  C 

537  C 

538  C 
639  C 
690  C 
591  C 

692  C 
•;  93 

o  94 

695 

696 

697 

693 
599 

700 

701 

702 

703 

704 
“05 

706 

707 
703 

709  C 

710 

711 

712  C 

713 

714 

715  C 

716 

717 
713 
719 


IVCxSSN  SUNSPOT  NUMBER 

IVCxTIM ( 5 )  DATE  AND  TIME  ARRAY 

RVCxYEAR  DECIMAL  YEAR 

RVCxAlOO  ANGLE  OF  INCIDENCE  AT 

100  KM  ALTITUDE 

IrCxGND  TYPE  OF  REFLECTION  SURF. 

RVCxTIM  TIME  SINCE  MIDNIGHT  IN 

RADIANS 

TO  CALCULATE  THE  SIGNAL  LOSS  CONTRIBUTIONS  FROM: 
ABSORPTION 
REFLECTION 
OTHER  PROCESSES 
GEOMETRIC  FOCUS ING/ DEFOCUS ING 


RETURNS : 

RVCxLOSA 

RVCxLOSR 

RVCxLOSX 

RVCxLOSG 


ABSORPTION  LOSS 
REFLECTION  LOSS 
EXCESS  LOSS 
GEOMETRIC  LOSS 


REAL *3  RTLxXl .  RVLxMOT .  RVCxYEAR.  RVLxDEC .  RVLxLAT 
REAL  *  3  RVSxBUN (4.3,11)  ,  RVSxLATO ,  RVSxLONG .  RVLxZEN 
REAL  *  3  RVLXZ12.  RVCxAlIO.  RVLxW .  RYLxM .  RVLxK ,  RTLxA 
REAL *3  RTLxB .  RTLxC ,  RTLxDEN .  RVCxLOSA,  RTLxRE .  RTLxIM 
REAL'S  RTLxARG .  RVCxLOSR.  RCTxA2.  /:Tx32.  RCTxCI.  RVLxEL 
REAL  *  8  RCTXA3 .  RCTxB3,  RCTxC3,  RTLxGC,  RTLxG? ,  RVLxLON 
REAL '8  RTLxGLA ,  RTLxGLO ,  RTLxDLA ,  RYLxDLO ,  RVLxMC 
REAL' 8  RVLxGML ,  RVCxLOSX,  RCLxAU.  RTLxR ,  RTLxS i 3 , 3 i 
REAL  *  8  RTLxVl  (  3  )  .  RTLxV2  (  3  )  ,  RTLxDE  .  RTLxCT  ‘  3  )  .  RTLxCV  '  3  i 
REAL*  3  RVLxAREA,  RTLxT  <  3  )  ,  RTLxCRS(3,',  RTLxMAGl  ,  RTLxMAG 
REAL  *  8  RVCxLOSG,  RPCxPI.  RPCxOTOR .  RFCxEE.  RVSxBCU  11.13 
REAL'S  RVCxII,  RVCxJJ,  RVCxKK,  RVCxFSQ,  RVLxFRE 
REAL *8  RVCxTIM,  RVLxHOR  RVCxCY .  RVCxCZ .  RVSxELO 
REAL'S  RVCxSEZTX (3,3) ,  RTCxl .  LTCxI ,  RTCxB ,  RTCx4 .  RTCx  5 
REAL *8  RTCx6 ,  RTCx7 ,  RTCx3 ,  RVCxKMIN.  RVCxHS .  RVCxCX 
REAL* 8  RTCxA ,  RTCxB ,  RTCxC 

COMPLEX* 16  CTLxNSQ ,  CTLxCSQ.  CTLxSIN.  OTLxSQT 
COMPLEX* 16  CVLxRH .  CVLxRV 

INTEGER  IVCxSX.  IVCxSY.  IVCxSZ 

INTEGER  IVSxIJB ,  IVCxTIM <5 ),  IrCxGND,  IVCxSSli,  IFSxEND 

COMMON  /MISC/  RVCxSEZTX  .  RTCxl  .  RTCxl  ,  RTCxl  .  RTC:<4  .  RTCx;  . 
#RVCxHMIN 

COMMON  /MORE/  IVCxSX  IVCxSY . IVCxSZ . RVCxCX . RVCxCY  RVCxII 
COMMON  /END/  RTCxo , RTCx" . RTCxS . RVCxHS 
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Line#  Source  Line 

720  COMMON  /LOCAL/  RVLxELEV 

721  COMMON  /PRAM/  RPCxPI,  RPCxDTOR,  RPCxRE,  RTCxC 

722  COMMON  /OTHER/  RVCxII . RVCxJJ . RVCxKK , RVCxFSQ . RTCxA , RTCxB 

723  COMMON  /LPARM/  IVCxSSN , IVCxTIM , RVCxYEAR , RVCxAlGO , IFCxGND 

724  * , RVCxTIM 

^25  COMMON  / LOSSES  -  RVCxLOSA.  RVCxLOSR.  RVCxLCSX.  RVCxLOSG 

726  C 

727  C  ABSORPTION  LOSS  CALC  1 0 Lx C  IS  A  TEMPORARY  7BL .  TO  0 EMOTE 

728  C  WHICH  RAY  IS  3EING  DONE; 

729  C 

730  C10000  IF  ; IFSxEND.SQ. 1. AND. IVSxNB .  EQ .  1 . AND . RVCxHMIN . GT . 30 . 3 i 

731  C  #GO  TO  20000 

732  C  C?  IFSxEND.EQ.l. AND. IVSxNB. GT.I.AND.RVCxHS.LT. 50.3! 

733  C  #G O  TO  20000 

734  C  RTLxKl  =  0.0D00 

735  C  RVLxMOT  *  m  RVCxYEAR  -  JIDINT ( RVCxYEAR ))* 36 5 . ODOO  +  15. COCO. 

736  C  *  30 . 41667D00 

737  C  RVLxDEC  *  0 . 398D00 *DSIN ( RPCxPI * ( RVLxMOT  -  3 . 17D00 ) / 6 . ODOO ! 

738  C  RVLxDEC  =  DASIN ( RVLxDEC ) 

739  0  RVLxLAT  =  (( 2 . ODOO « IVSxNB  -  1 . ODOO )/( 2 . ODOO * IVSxNB ) >  * 

7  40  C  •  (RVSxBOUl IVSxNB, 1)  -  RVSxLATO)  f  RVSxLATO 

741  C  RVLxZSN  =  OSIN ( RVLxLAT) «DSIN ( RVLxDEC )  -  OCOS * RVLxLAT )  *DCOS ■ RV 

742  C  'DEC )  *  DCOS (RVCxTIM) 

743  C  RVLxZSN  =  DACOS (RVLxZEN) 

744  C  RVLXZ12  =  RVLxLAT  -  RVLxDEC 

745  C  RVLxDEC  =  RVLxDEC  /  RPCxDTOR 

746  C  RVLxLAT  *  RVLxLAT  /  RPCxDTOR 

747  C  RVLxZEN  *  RVLxZEN  /  RPCxDTOR 

748  C  RVLXZ12  =  RVLXZ12  /  RPCxDTOR 

749  C  RVCxAlOO  =  RVCxAlOO  /  RPCxDTOR 

750  C  IF  ( RVLxLAT. GE . 30 . ODOO)  THEN 

751  C  IF  (IVCxTIM (2) .EQ.ll)  THEN 

752  C  RTLxKl  =  0.0083DOO 

753  C  ELSE  IF  ( IVCxTIM ( 2 ). EQ • 12 >  THEN 

754  C  RTLxKl  =  0.0282D00 

755  C  ELSE  IF  ( IVCxTIM ( 2 ). EQ . 1 )  THEN 

756  C  RTLxKl  =  0 . 0269D00 

757  C  ELSE  IF  ( IVCxTIM ( 2 ) . EQ . 2 )  THEN 

758  C  RTLxKl  =  0.0039DQO 

759  C  END IF 

760  C  END IF 

761  C  RVLxW  =  30.CD0G  -  DABS .{ RVLxLAT  -  5C.  0200 ! 

762  C  RVLxW  »  1.0D00  -  RTLxKl* RVLxW 

"63  C  RVLxM  =  2.25D00  -  0 . 03 2D00 « RVLxLAT 

764  C  IF  ( RVLxZEN. GT. 90. ODOO)  THEN 

765  C  RVLxK  *  0.01D00 

766  C  ELSE 

767  C  RTLxA  =  DCOSD ( 0 . 393DOO -RVLxZEN ' 

763  C  RTLxB  =*  DCOSD  (  0  .  3  9 3D00  *RVLxZl  2  ) 

769  C  RTLxC  =  DCOSD 1 RVLxZlI) 


276 


Line#  Source  Line 


770 

771 

772 

773 

774 

775 

776 

777 
77  3 
779 
730 

781 

782 
733 
784 

735 

736 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 
793 

799 

800 
801 
802 
803 
304 

805 

806 

807 

808 

809 

810 
811 
812 
813 
314 

815 

816 
817 
813 
819 


C  RTLxC  a  RTLxC  **  RVLxM 

C  RVLxK  =  (l.ODQO  +  0 . 00 5D00 * IVCxSSN )  *  RTLxC  *  RTLxA  /  RTL 

C  END IF 

RVLxFRE  =  DSQRT ! RVCxFSQ ) 

C  RTLxDEN  =  10.2D00  ♦  (RVLxFRE  +  1 . 4D00 )»( RVLxFRE  *  1.4DCG) 

C  RTLxDEN  =  RTLxDEN  *  DCOSD ( RVCxAlOO ) 

C  RVCxLOSA  a  RVCxLOS A  *  ( 28 6 . 0D00 * ( 1 . ODOO+O . 00 87D00 * RVLxLAT I  « 

C  * RVLxM* RVLxK  /  RTLxDEN) 

C 

C  REFLECTION  LOSS  CALCULATION,  a  Fresnel  coefficient:  calculation. 

C  For  details,  see  the  Radio  Science  paper  referred  to  in  the 

C  documentation. 

C 

20000  IF  ( IVSxNB- 1.LE.0)  GO  TO  40000 
IF  ( IFCxGND . EQ . 1 )  THEN 
RTLxRE  =  7.QD00 

RTLxIM  =  -O.OOSDOO  «  18000. 0D00  /  RVLxFRE 
CTLxNSQ  »  DCMPLX l RTLxRE,  RTLxIM) 

ELSE 

RTLxRE  *  30.0D00 

RTLxIM  *  -5.0DO0  *  13000. 0D00  /  RVLxFRE 
CTLxNSQ  *  DCMPLX i RTLxRE.  RTLxIM) 

END  IF 

CTLxCSQ  =  DCMPLX (DCOS (RVLxELEV) • DCCS (RVLxELEV) ) 

CTLxSIN  =  DCMPLX (DSIN (RVLXELEV) ) 

CTLxSQT  *  CDSQRT( CTLXNSQ  -  CTLxCSQ' 

CVLxRH  *  (CTLxSIN  -  CTLxSQT )/( CTLxS IN  +  CTLxSQT) 

CVLxRV  »  ( CTLxNSQ “CTLxSIN-CTLxSQT:  (CTLxNSQ'CTLxSIN-CTLxSQT 
RTLxARG  =  (CDABS (CVLxRV) -CDABS (CVLxRV)  +  CDABS (CVLxRH) -CDABS 
•CVLxRH) )  /  2.0D00 

RVCxLOSR  *  RVCxLOSR  ♦  DABS ( 10 . OD00 *DLOG10 t RTLxARG ) i 
C 

C  EXCESS  LOSS  CALCULATION 
C 

C30000  RCTXA2  ■  11.18959D00 

C  RCTXB2  »  -0 .02916595DO0 

C  RCTxC2  =  -8 . 540  ID-04 

C  RCTXA3  »  -70.7 4365DOO 

C  RCTxB 3  »  -0 . 04418982D00 

C  RCTXC3  »  0 . 00216997 1D00 

C  RTLxGC  »  RCTxA2  +  RVCxYSAR* ( RCTxB2  -  RVCxYEAR'RCTxi: ; 

C  RTLxGP  ■  RCTxA3  f  RVCxYEAR • ( RCTxB3  f  RVCxYEAR * RCTxC 3 

C  RVLxLON  *  (  (  2 . 0D00  -IVSxNB  -  1 .  ODOO  i  ,  2  .  ODOO  •  IVSxNB  > 

C  • (RVSxBOU( IVSxNB, 2)  -  RVSxLONO)  -  RVSxLONO 

C  RTLxGLA  =  (90.  ODOO  -  RTLxGC)  •  RPCxDTOR 

C  RTLxGLO  *  RTLxGP  •  RPCxDTOR 

C  RTLxDLA  »  RTLxGLA  -  RVLxLAT* RPCxDTOR 

C  RTLxDLO  =  RTLxGLO  -  RVLxLON 

C  RVLxMC  =  DCOS (RTLxDLA)  *  DCCS ( RTLxDLO > 

C  RVLxMC  =  DACOS (RVLxMC. 
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320  C  RVLxGML  =  ( RPCxPI / 2 . ODOO  -  RVLxMC >  /  RPCxDTOR 

321  C  IF  (RVLXGML. GT. 60. ODOO)  THEN 

322  C  RVCxLOSX  =  13.3D00 

323  C  ELSE 

324  C  RVCxLOSX  =  9 . 3D00 

325  C  END IF 

3  26  C 

327  C  GEOMETRIC  LOSS  CALCULATION 
323  C 

329  40000  RCLxAU  =  1 . 90 3 3 5337 5D-09 *DCOS ( RVSxELO ) 

330  C 

331  C  RCLxAU  is  che  cross-sectional  area  of  a  bundle  of  rays 

332  C  bounded  by  a  square  defined  by  azimuth  and  elevation 

333  C  deviations  of  0.0025  degrees  from  one  corner.  This 

334  C  cross-section  is  taken  at  a  distance  of  1  km  from  the 

335  C  starting  point  of  the  problem.  Only  three  rays  are 

336  C  necessary  to  define  the  area,  the  area  may  be  taken 

337  c  as  represented  by  the  vector  cross  product  of  the 

338  C  vector  from  the  'corner'  point  to  one  of  the  other 

339  C  points,  with  the  other  similarly  taken  vector.  This 

340  C  is  in  fact  how  the  calculation  is  done. 

841  C 

342  DO  40100  I  =  1,3 

343  C 

344  C  RVSxBUN  contains  the  endpoint  locations  for  the  rays  in 

345  C  the  bundle. 

846  C 

347  RTLxR  »  RFCxRE  -  RVSxBUN (1,3.1 /SxM3 ) 

848  C 

349  C  The  RTLxS  are  the  GEC  coordinate  values  for  the  sr.dpcmc 

350  C  of  the  three  rays  that  define  the  area. 

351  C 

352  RTLxS (1,1)  =  RTLxR «DCOS t RVSX3UN ; I . 1 . IVSxNB - i * DCOS ■ R7 

853  #(1.2, IVSxNB) ) 

3  54  RTLxS (I, 2)  =  RTLxR* DCOS ( RVSxBUU : I . 1 . IVSxNB )  >  *  DS IN  1 R7 

355  # (I, 2, IVSxNB) ) 

356  RTLxS (I. 3)  =  RTLxR*DSIN (RVSxBUU ,1.1. IVSxN3 ' • 

357  40100  CONTINUE 

853  C 

859  C  These  next  two  quantities  are  the  vectors  in  GEC  ccmpcn 

860  C  representing  the  deviation  of  two  of  the  points  from  t 

861  C  third  (the  'corner'). 

862  C 

363  DO  40200  I  »  1,3 

864  RTLxVl(I)  =  RTLxS ( 1 . I )  -  RTLxS ( 2 . 1 ) 

365  RTLxV2 ( I )  =  RTLxS (3.1)  -  RTLxS < 2 . I i 

866  40200  CONTINUE 

367  RTLxDE  *  SQRT ( RVCxCX+RVCxCY+RVCxCZ ) 

863  C 

869  C  This  next  vector  is  the  ray  direction  in  SE2  components. 
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370  C 

371 

372 

373 

374  C 

375  C 

376  C 

377  C 

378 
879 
3  30 
381 

3  82  40250 

383  40300 

334 

335  C 

336  C 

337  C 
888  C 
389  C 

890 

891 

392  # 

393 

894  40400 

395  C 

396  C 

897  C 

898  C 

899  C 

900 

901 

902 

903 

904 

905  * 

906 

907 

908  40500 

909 

910 

911 

912 

913 

914  C 

915  C 

916  C 

917 

918  C 

919  C 


RTLxCT (1)  =  IVCxSX  *  DSQRT ( RVCxCX )  /  RTLxDE 

RTLxCT ( 2 )  =  IVCxSY  *  DSQRT ( RVCxCY)  /  RTLxDE 

RTLxCT ( 3 )  =  IVCxSZ  *  DSQRT i RVCxCZ )  /  RTLxDE 

Next,  che  ray  direction  vector  is  transformed  into  GEC 
coordinates . 

DO  40300  1=1.3 

RTLxCV ( I )  =0.0 
DO  40250  J  =  1.3 

RTLxCV  (I)  =  RTLxCV  (I)  RVCxSEZTX  i  I .  J  )«  RTLxCT  J  ; 

CONTINUE 
CONTINUE 
RVLxARSA  =0.0 

Now,  the  triple  vector  product  is  calculated  which  will 
give  the  cross-sectional  area  of  the  ray  bundle  in  the 
plane  defined  by  the  ray  direction  vector. 

DO  40400  I  =  1,3 

RTLxT(I)  =  RTLXV2 (MOD (I , 3) +1) ‘RTLxCV (MOD ( 1+1 , 3) *1) 

-  RTLxV2  ( MOD  ( 1  +  1 , 3 )  +1 )  *  RTLxCV  ( MOD  ( 1 , 3 )  ■*  1 ) 

RVLxAREA  =  RVLxARSA  *  RTLxT ( I ) 'RTLxVl ( I ) 

CONTINUE 

A  calculation  now  begins  to  obtain  the  angle  between 
the  ray  direction  and  the  surface  determined  by  the 
cutoff  /  earth  bounce  condition. 

RVLxAREA  =  DABS ( RVLxAREA i 
RTLxMAGl  =0.0 
RTLxMAG2  =0.0 
JO  40500  1=1,3 

RTLxCRS ( I )  =  RTLxVl (MOO (I. 3) +1) *RTLxV2 (MOD ( 1+1 . 3 i -1 

-  RTLxVl  (MOD  { I  1 . 3)  -1)  «RTLxV2  (  MOD  { 1 ,  3)  +1) 

RTLxMAGl  =  RTLxMAGl  +  RTLxCRS ( I ) ‘RTLxCRS ( I ! 

RTLXMAG2  =  RTLXMAG2  *  RTLxCV ( I ) 'RTLxCV ( I ) 

CONTINUE 

RTLxMAGl  =  DSQRT (RTLxMAGl) 

RTLXMAG2  =  DSQRT ( RTLxMAGl ) 

RVLxELEV  =  RVLxAREA  /  ( RTLxMAGl *  RTLxMAGl ) 

RVLxELEV  =  DACOS (RVLxELEV) 

RVLxELEV  =  (RPCxP 1/2.0)  -  RVLxELEV 

The  ordinary  geometric  loss  calculation. 

RVCxLOSG  =  6Q.ODOO  +  lO.ODOO  «  DLOG10 ( RVLxAREA/ RCLxAU 

If  a  ray  came  into  the  earth  at  a  sufficiently  small  r.:.- 
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Line#  Source  Line 


920  C 

921  C 

922  C 

923  C 

924 

925 

926 

927 
923 

929 

930 

931 


chen  che  empirical  horizon  focusing  calculation  is  dene. 

The  resulc  of  chis  is  chen  compared  to  che  normal  focusing 
result  and  che  greater  loss  is  used. 

IF  (ABS (RVLxELEV/RPCxDTOR) . LT . 1.0000)  THEM 

RVLxHOR  =  60 . G12D00  +  20 . QDQQ * DLOG10 ( OBLE < IVSxMB j  !  / 3  .  0D0 3 
*-10 . 0DG0  *DLCG10 (DCOS i RVLxELEV )  )  +  10 . 0D00 «DLOG10 ( DSIM ( RVSxBOU i 
-IVSxMB. 4)1)  -  10 . 3000  *  DLOGIO ( RVLxFRE ) / 3 . 0D0  0 

IF  ( RVLxHOR. GT.RVCxLOSG)  RVCxLOSG  =  RVLxHOR 
END  IF 
RETURN 
END 


LOSS  Local  Symbols 


Name  Class  Type  Size 

IFSXEND . param 

RVSXEL0 . param 

RVSXLONO . param 

RVSXLAT0 . param 

IVSXNB . param 

RVSXBUN . param 

RVSXBOU . param 

I  .  local  INTEGER-4  4 

J  .  local  INTEGER-4  4 

RCLXAU . local  REAL*  3  3 

RTLXMAG1 . local  REAL -8  3 

RTLXMAG2 . local  REAL -3  3 

RTLXV1 . local  REAL -8  24 

RTLXV2 . local  REAL-8  24 

RTLXDE . local  REAL -3  3 

CVLXRH . local  COMPLEX*  16  16 

RTLXR  .  local  REAL *3  3 

RTLXS . local  REAL  *8  ”2 

RTLXT . local  REAL-3  24 

RTLXIM . local  REAL  *3  3 

RTLXCT . local  REAL -8  2  4 

RTLXRE . local  REAL  *8  3 

CTLXCSQ  .  local  COMPLEX-16  16 

RTLXCV . local  REAL  *3  2  4 

RTLXARG  .  local  REAL -8  3 

CVLXRV . local  COMPLEX*  16  16 

CTLXSIN  .  local  COMPLEX-16  16 

RVLXAREA . local  REAL  *8  3 

RVLXFRE  .  local  REAL *3  8 

CTLXNSQ  .  local  COMPLEX- 16  15 

RTLXCRS  .  local  REAL* 8  24 

CTLXSQT  .  local  COMPLEX* 16  16 
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Name  Class  Type  Size 

RVLXHOR  .  local  REAL *3  3 

RVCXLOSG . LOSSES  REAL  *  8  3 

RPCXPI . PRAM  REAL-8  3 

RPCXDTOR . PRAM  REAL -3  3 

RPCXRE . PRAM  REAL  *8  3 

RVCXII . OTHER  REAL -3  3 

RVCXJJ . OTHER  REAL  *8  3 

RVCXKK . OTHER  REAL  *3  3 

RVCXFSQ  .  OTHER  REAL- 8  3 

RVCXTIM  .  LPARM  REAL *3  3 

RVCXCY . MORE  REAL*  3  3 

RVCXCZ . MORE  REAL -3  3 

RVCXSEZTX . MISC  REAL-8  72 

RTCX1 . MISC  REAL  *8  3 

RTCX2 . MISC  REAL-8  8 

RVCXYEAR . LPARM  REAL*  8  3 

RTCX3 . MISC  REAL- 8  8 

RTCX4 . MISC  REAL  *3  3 

RTCX5 . MISC  REAL- 3  3 

RTCX6 . END  REAL -8  3 

RTCX7 . END  REAL  *3  3 

RTCX8 . END  REAL  *3  3 

RVCXA1Q0 . LPARM  REAL -8  8 

RVCXHMIN . MISC  REAL -3  3 

RVCXH5 . END  REAL -3  3 

RVCXCX . MORE  REAL -3  3 

RTCXA  .  OTHER  REAL -8  3 

RTCXB  .  OTHER  REAL *3  3 

RTCXC . PRAM  REAL -8  3 

RVCXLOSA . LOSSES  REAL- 3  8 

RVCXLOSR . LOSSES  REAL-8  3 

IVCXSX . MORE  INTEGER  *4  4 

IVCXSY . MORE  INTEGER  *4  4 

IVCXSZ . MORE  INTEGER  -4  4 

RVLXELEV . LOCAL  REAL*  8  3 

IVCXTIM  .  LPARM  INTEGER -4  20 

IFCXGND  .  LPARM  INTEGER* 4  4 

IVCXSSN  .  LPARM  INTEGER *4  4 

RVCXLOSX . LOSSES  REAL-8  3 
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934 

935  C 

936  C 

937  C 
933  C 

939  C 

940  C 

941  C 

942  C 

943  C 

944  C 

945  C 

946  C 

947  C 
943  C 

949  C 

950  C 
9  51  C 

952  C 

953  C 

954  C 

955  C 

956  C 

957  C 

958  C 

959  C 

960  C 

961  C 

962  C 

963  C 

964  C 

965  C 

966  C 

967  C 
963  C 

969  C 

970  C 

971  C 

972  C 

973  C 

974  C 

975  C 

976  C 

977  C 
973  C 
979 

930  C 

981 

982 

983 


SUBROUTINE  GCDEV ( IVSxNB . RVSxAZ , RVSxLAO , RVSxLOO . RVSxBOU . RVSxDEV ' 


GCDEV  --  SUBROUTINE  TO  EVALUATE  THE  DEVIATION  OF  A  RAY  FROM 
A  GREAT  CIRCLE  PATH 

CALLED  3Y :  RAYSU3 


AUTHOR:  ERIC  L.  STROBEL 

DATE:  10,10/36 

VERSION:  2.1 


REVISED:  09/05/36  --  INITIAL  REVISION. 

09/17/86  —  V2.0.  Practically  a  complete 
rewrite.  Now  does  the  spherical  trig  OK 
even  in  the  special  cases...  I  think. 

10/10,36  --  V 2 . 1 .  Changed  to  conform  to 
the  new  status  of  RAYTRACE  as  a  subrout. 


USES:  RVSxBOU (11.15) 

IVSxNB 
RVSxAZ 
RVSxLAO 
RVSXLOO 


BOUNCE  ?T .  ARRAY 
BOUNCE  COUNT 
LAUNCH  AZIMUTH 
LAUNCH  LATITUDE 
LAUNCH  LONGITUDE 


TO  CALCULATE  THE  DEVIATION  OF  THE  RAYPATH  AWAY  FROM  ITS 
EXPECTED  LANDING  POINT  (IF  IT  HAD  FOLLOWED  A 
GREAT  CIRCLE  PATH! . 


RETURNS : 

RVSxDEV 


DEVIATION  IN  KM 


INTEGER  IVSxNB.  ITLxS .  ITLxC 

REAL  *  3  RVSxDEV.  RVSxBOU ( 11 . 15 )  .  RVSxAZ 

REAL'S  RVSxLAO,  RVSxLOO,  RPCxPI,  RPCxRE.  RPCxDTR 

REAL *8  RVLxR,  RTLxl .  RVLxLAP .  RVLxLCP ,  R/LxSDL 
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Line#  Source  Line 

984  REAL *8  RVLxCDL,  RVLxDL,  RTLxA.  RTLxB ,  RTLxD ,  RTCxA 

985  C 

986  COMMON  /PRAM/  RPCxPI,  RPCxDTR ,  RPCxRE .  RTCxA 

987  C 

988  C  First,  do  the  spherical  trig  to  get  the  great  circle 

989  C  landing  point  (i.e.,  where  the  ray  would  have  landed, 

990  C  given  the  range  that  it  went,  if  it  had  stayed  on  the 

991  C  great  circle  path  at  the  original  azimuth) . 

992  C 

993  RVLxR  =  RVSxBOU ( IVSxNB ,  4) 

994  RTLxl  =*  DSIN  ( RVSxLAO )  *DCOS  ( RVLxR)  DCOS  (  RVSxLAO  )  « 

995  "DSIN (RVLxR) *DCOS (RVSxAZ) 

996  RVLxLAP  *  DAS IN (RTLxl) 

997  RVLxSDL  =  DSIN ( RVSxAZ ) *DSIN ( RVLxR ) /DCOS ( RVLxLAP ) 

998  RVLxCDL  *  ( DCOS ( RVLxR ) -DSIN ( RVSxLAO ) «DS IN ( RVLxLAP )) / 

999  * (DCOS (RVSxLAO ) * DCOS ( RVLxLAP ) ) 

1000  RVLxDL  =<  DAS  IN  (RVLxSDL) 

1001  ITLxS  *  INTSIGN (RVLxSDL) 

1002  ITLxC  »  INTSIGN (RVLxCDL) 

1003  IF  (ITLxC. LT.0)  RVLxDL  *  ITLxS«RPCxPI  -  RVLxDL 

1004  IF  ( ITLxS.  EQ.0.  AND.  ITLxC.  LT.0)  RVLxDL  =*  RPCxPI 

1005  RVLxLOP  »  RVSxLOO  +  RVLxDL 

1006  C 

1007  C  Now,  calculate  the  great  circle  distance  between  the  actual 

1008  C  landing  point  and  the  great  circle  landing  point. 

1009  C 

1010  RTLxA  *  RVSxBOU (IVSxNB,  1) 

1011  RTLxB  =»  RVSxBOU  (IVSxNB,  2) 

1012  RTLxD  *  RTLxB  -  RVLxLOP 

1013  RVSxDEV  *  DSIN (RTLxA) *DSIN( RVLxLAP;  +  DCOS (RTLxA) « 

1014  #DCOS (RVLxLAP) « DCOS (RTLxD) 

1015  IF  ((RVSxDEV  -  1 . ODOO ) . GT . 0 . ODOO )  RVSxDEV  =  l.ODOO 

1016  IF  ((RVSxDEV  +  1 . ODOO ). LT . 0 . ODOO )  RVSxDEV  =  -l.ODOO 

1017  RVSxDEV  3  RPCxRE*DACOS (RVSxDEV) 

1018  RETURN 

1019  END 

GCDEV  Local  Symbols 

Name  Class  Type  Size 

RVSXDEV . param 

RVSXBOU . param 

RVSXLOO . param 

RVSXLAO . param 

RVSXAZ . param 

IVSXNB . param 

ITLXC . local  INTEGER  *  4  4 

RTLXA . local  REAL  *  8  8 
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GCDEV  Local  Symbols 


.'lame 

RTLXB  . 
RTLXD  . 
ITLXS  . 
RVLXDL . 
RVLXR  . 
RVLXCDL 
RVLXLA? 
RVLXSDL 
RVLXLOP 
RTLX1  . 
RPCXPI. 
RPCXRE . 
RPCXDTR 
RTCXA  . 


Class 

Type 

local 

REAL *  3 

local 

REAL'S 

local 

INTEGER 

local 

REAL ■ 3 

local 

REAL*  3 

local 

REAL  *  3 

loc  al 

REAL'S 

local 

REAL ' 3 

local 

REAL '3 

local 

REAL'S 

FRAM 

REAL'S 

PRAM 

REAL'S 

PRAM 

REAL'S 

PRAM 

REAL'S 

Line#  Source  Line 


1022 

1023 

1024  C 

1025  C 

1026  C 

1027  C 

1028  C 

1029  C 

1030  C 

1031  C 

1032  C 

1033  C 

1034  C 

1035  C 

1036  C 

1037  C 

1038  C 

1039  C 

1040  C 

1041  C- 

1042  C 

1043  C 

1044  C 

1045  C 
«.  j46  C 

1047  C 

1048  C 

1049  C 

1050  C 

1051  C 

1052  C- 

1053  C 

1054  C 

1055  C 

1056  C 

1057  C 

1058  C 

1059  C 

1060  C 

1061  C 

1062  C 

1063  C 

1064  C 

1065  C 

1066  C 

1067  C 

1068  C- 

1069  C 

1070 

1071 


SUBROUTINE  ANRANG { RVSxAZ ,  RVSxLAl ,  RVSxLOl ,  RVSxLAO ,  RVSxLOO 
#,  RVSxR) 


ANRANG  --  SUBROUTINE  TO  COMPUTE  THE  ANGULAR  RANGE  BETWEEN 
TWO  POINTS 


CALLED  BY:  RAYSUB 


AUTHOR:  ERIC  L.  STROBEL 

DATS:  03/13/38 

VERSION:  2.0 


REVISED:  05/01/37  —  VI . 0 .  Initial  revision. 

03/18/38  —  V2.0.  Rewritten  to  handle  using 
the  correct  azimuth  between  the  launch  point 
and  the  current  point,  as  opposed  to  using  t 
launch  azimuth.  Also,  now  correctly 
handles  azimuths  of  0  &  180  degrees,  as 
well  as  angular  ranees  >  180  degrees. 


USES:  RVSxAZ  Azimuth. 

RVSxLAl  \ 

RVSxLOl  The  endpoints  of  the  path. 

RVSxLAO  I 
RVSxLOO  / 


To  calculate  the  angular  range  along  the  great  circle  path 
between  the  two  points. 


RETURNS:  RVSxR  The  angular  range. 


REAL *8  RTLxl ,  RVSxAZ.  RVSxLAl,  RVSxLOl,  RVSxLAO,  RVLxTHC 
REAL  *  8  RVSxLOO,  RVSxR,  RVLxCR .  RPCxPI.  RVLxPI02.  RVLxTHl 
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1072 

1073 

1074 

1075 

1076 

1077 
1073 

1079 

1080 
1081 
10  82 

1083 

1084 

1035 

1036 

1087 

1088 
1039 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 
1101 
1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 
1111 
1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 
1121 


REAL *8  RTCxA .  RTCxS .  RTCxC,  RVLxSO.  RVLxCO,  RVLxSl.  RVLxCl 
REAL *8  RVLxS2 ,  RVLxC2,  RVLxTAD ,  RVLxACl,  RVLxAC2,  RVLxTAN 
REAL  *  8  RVLxAC ,  RVLxDl .  R7LxD2 

INTEGER  IVLxSS ,  IVLxSC 

COMMON  /PRAM/  RPCxPI .  RTCxA .  RTCxS.  RTCxC 

RVLXPI02  =  RPCxPI/ 2 . ODOO 
RTLxl  =  RVSxLOl  -  RVSxLOO 
RVLxTHO  =  RVLxP 102  -  RVSxLAO 
RVLxTHl  =  RVLxP 102  -  RVSxLAl 


RVLxSO 
RVLXCO 
RVLxSl 
RVLxCl 
RVLxS  2 
RVLXC2 


DS IN (RVLxTHO) 
DCOS (RVLxTHO) 
DS IN (RVLxTHl) 
DCOS l RVLxTHl) 
DS IN ( RTLxl ) 
DCOS (RTLxl) 


RVLxCR  =  RVLxC  2  *  RVLxS  0  *  RVLxS 1  +  RVLxCO * RVLxCl 
RVLxTAD  =  RVLxCl  -  RVLxCR* RVLxCO 

We’re  trying  to  push  spherical  trig  to  yield  correct  values 
even  when  the  sides  of  the  tnanale  are  greater  than  130  oe-: 
Here,  the  correct  azimuth  between  t:ie  endpoints  of  the  rar.n 
is  being  calculated.  In  this  way.  if  the  range  is  create: 
than  130  degrees,  we  can  get  enc  .  :n  information  to  determine 
the  correct  value. 


IF  ( RVLxTAD. EQ.0.G)  THEN 
RVLxACl  =  RVLxP IO 2 
RVLxAC 2  =  3.0  *  RVLxP 102 
ELSE  IF  (RVLXS2.EQ.0.0)  THEN 
RVLxACl  =0.0 
RVLxAC 2  =  RPCxPI 

ELSE 

RVLxTAN  =  RVLxSO *RVLxSl* RVLxS 2 
RVLxAC  *  DAT AN ! RVLxTAN /RVLxTAD ) 

IF  ( RVLxAC. LT. 0 .0)  RVLxAC  =  RVLxAC 
RVLxACl  =  RVLxAC 
RVLxAC 2  =  RVLxAC  -  RPCxPI 
ENDIF 

RVLxDl  =  DA3S ( RVSxAZ  -  RVLxACl) 

RVLXD2  =  DABS ( RVSxAZ  -  RVLxAC2) 

IF  (RVLxDl .LT.RVLXD2)  THEN 
RVSxAZ  =  RVLxACl 

ELSE 

RVSxAZ  =  RVLxAC 2 
ENDIF 


RPCxPI 


286 


Line#  Source  Line 


1122  C 

1123  C  Now  calculate  the  angular  range. 

1124  C 

1125  IF  ( RVSxAZ . EQ . 0 . 0 . OR . RVSxAZ . EQ . RPCxPI )  THEN 

1126  RVSxR  =  (RVLxTHO  -  RVLxC2*RVLxTHl ) *DCOS (RVSxAZ) 

1127  ELSE 

1128  IVLxSS  =  INTSIGN ( RVLxS2*RVLxSl/DSIN ( RVSxAZ ) ) 

1129  RVSxR  =  DACOS ! RVLxCR ) 

1130  END IF 

1131  C 

1132  C  Range  will  be  negative  if  greater  than  130  degrees. 

1133  C  Therefore  the  following  line  will  give  the  desired 

1134  C  value. 

1135  C 

1136  IF  i RVSxR.LT. 0 . 0 i  RVSxR  =  2 . jDQO'RPCxPI  -  RVSxR 

1137  C 

1138  RETURN 

1139  END 

ANRANG  Local  Symbols 

Name  Class  Type  Size 

RVSXR . param 

RVSXLOO . param 

RVSXLAO . .  .  param 

RVSXLOl . param 

RVSXLA1 . param 

RVSXAZ . param 

RVLXC1 . local  REAL*  8  3 

RVLXD1 . local  REAL  *3  3 

RVLXAC1  .  local  REAL* 8  3 

RVLXC2 . local  REAL  *8  3 

RVLXD2 . local  REAL*  8  3 

RVLXAC2  .  local  REAL* 8  8 

RVLXSO . local  REAL  *  8  3 

RVLXAC . local  REAL  *3  8 

RVLXS1 . local  REAL  *8  3 

RVLXS2 . local  REAL  *  3  3 

RVLXTHO  .  local  REAL -8  8 

RVLXTH1  .  local  REAL *3  8 

RVLXCR . local  REAL  *  3  8 

RVLXTAD  .  local  REAL'S  3 

RVLXPI02 . local  REAL*  8  3 

IVLXSS . local  INTEGER  *4  4 

RVLXTAN  .  local  REAL'S  3 

RTLX1  .  local  REAL'S  3 

RVLXCO . local  REAL  *  3  3 

RPCXPI . PRAM  REAL'S  8 
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ANRANG  Local  Symbols 


Mame  Class  Type  Sice 

RTCXA . PRAM  REAL  *  3  3 

RTCX3 . PRAM  REAL'S  3 

RTCXC . PRAM  REAL'S  3 
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Line#  Source  Line 


1142 

1143 

1144  C 

1145  C 

1146  C 

1147  C 

1148  C 

1149  C 

1150  C 

1151  C 

1152  C 

1153  C 

1154  C 

1155  C 

1156  C 

1157  C 

1158  C 

1159  C 

1160  C 

1161  C 

1162  C 

1163  C 

1164  C 

1165  C 

1166  C 

1167  C 
1163  C 

1169  C 

1170  C 

1171  C 

1172  C 

1173  C 

1174  C 

1175  C 

1176  C 

1177  C 

1178  C 

1179  C 

1180  C 

1181  C 

1182  C 

1183  C 

1184  C 

1185  C 

1186  C 

1187  C 

1188  C 

1189  C 

1190 

1191 


SUBROUTINE  INBOX ( RVSxLAI , RVSxLOI . RVSxLAS . RVSxLOS 
# , RVSxLAE , RVSxLOE . IVSxOUT ) 


INBOX  —  SUBROUTINE  TO  DETERMINE  WHETHER  A  GIVEN  PT .  IS 
WITHIN  THE  IONOSPHERIC  SPECIFICATION  GRID. 


CALLED  BY:  IONOPAR 


AUTHOR:  ERIC  L.  STROBEL 

DATE:  03/01/37 

VERSION:  1.0 


REVISED:  03/01/87  --  VI . 0 .  Initial  revision. 


USES:  RVSxLAI,  LOI  The  coord,  of  the  pt.  of 

interest . 

RVSXLAS  \ 

RVSxLOS  i _  The  starting  and  ending 

RVSxLAE  ,  (SW  &  NE)  corners  of  the 

RVSxLOE  /  specification  grid. 


To  determine  whether  or  not  the  point  of  interest  lies 
within  the  grid  over  which  the  ionosphere  is  specified. 

If  it  is  outside,  then  the  program  will  use  a  spherically 
symmetric  ionosphere  having  the  parameters  of  the  nearest 
grid  point,  otherwise  the  program  will  do  the  interpolati 


RETURNS:  IVSxOUT  A  flag  specifying  whether 

the  pt.  of  interest  is  in  : 
out  of  the  grid.  (0  =  in, 

1  *  out) 


REAL *8  RVSxLAI,  RVSxLOI,  RVSxLAS,  RVSxLOS 
REAL *3  RVSxLAE,  RVSxLOE 
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Line*  Source  Line 

1192  REAL* 8  RTLxl ,  RTLx2 .  RTLx3 ,  RTLx4 

1193  C 

1194  INTEGER  IVSxCUT 

1195  C 

1196  C 

1197  RTLxl  =»  MIN  ( RVSxLGS  .  RVSxLOE ) 

1198  RTLx2  *  MAX ! RVSxLOS , RVSxLOE ) 

1199  RTLX3  *  MIN ( RVSxLAS . RVSxLAE ) 

1200  RTLx4  *  MAX (RVSxLAS .RVSxLAE) 

1201  I?  ( < < (RVSxLAI-RTLx4) .LE.0.0D00) .AND. 

1202  4 ( (RVSxLAI-RTLx3 ) .GE.O.CDOO) ) .AND. 

1203  * ( ( (RVSxLOI-RTLx2i .LS.G.0D00) .AND. 

1204  4 ( ( RVSxLOI-RTLxl ! . GE . 0 . 0D00 ) > )  THEN 

1205  IVSxGUT  =  0 

1206  ELSE 

1207  IVSxOUT  *  1 

1208  END IF 

1209  RETURN 

1210  END 


INBOX  Local  Symbols 

Name  Class  Type  Sice 

IVSXOUT . param 

RVSXLOE . param 

RVSXLAE . param 

RVSXLOS . param 

RVSXLAS . param 

RVSXLOI . param 

RVSXLAI . param 

RTLX1  .  local  REAL'S  i 

RTLX2  .  local  REAL *8  i 

RTLX3  .  local  REAL'S  S 

RTLX4  .  local  REAL'S  3 
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Line#  Source  Line 


1213 

1214  C 

1215  C 

1216  C 

1217  C 
1213 

1219  C 

1220 

1221  C 

1222 

1223 

1224 

1225 

1226 

1227 

1228 


FUNCTION  INTSIGN ( R ) 

GIVES  1,-1, OR  0  AS  THE  SIGN  OF  A  REAL* 3  NUMBER.  This 
mimics  the  SIGN  function  available  in  most  BASICS. 

REAL *8  R 

INTEGER  INTSIGN 

IF  (R.EQ.0.0D00)  THEN 
INTSIGN  =  0 
RETURN 
END  IF 

INTSIGN  =  IDNINT ( R/ DABS ( R ) ) 

RETURN 

END 


INTSIGN  Local  Symbols 


Name  Class  Type 

R . param 

INTSIGN . param 


Size 


Global  Symbols 

Name  Class  Type  Size 


ACCFSP . FSUBRT  ««* 

ANRANG . FSUBRT  «** 

END . common  *** 

FREESP . FSUBRT  *** 

GCDEV . FSUBRT  *** 

GORP . common  *** 

INBOX . FSUBRT  *** 

INTSIGN  .  FFUNCT  INTEGER* 4 

IONOl . common  *** 

LOCAL . common  *  *  * 

LOSS . FSUBRT  «** 

LOSSES . common  *** 

LPARM . common  *  *  * 

MAINDAT  .  common  «** 

MISC . common  •*« 

MORE . common  *** 

NEWCS . FSUBRT  •*• 

OTHER . common  *** 

PRAM . common  *** 

START . common  *•* 


32 


16 


32 

8 

ft  ft  ft 

32 

52 

43 

120 

36 

ft  ft  ft 

43 

32 

4  0 
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Global  Symbols 


Maine  Class  Type  Siza 

TEMP2 . common  **"  16 

TIMES . rSUBRT  *  *  *  *  *  * 

TRIANG . FSUBRT  «”  *■* 

Code  size  *  lf47  ;3G07) 

Data  size  3  0116  (  27  3  > 
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